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PROBLEM TO BE SOLVED: To allow a viewer to be 
given a chance to execute selection from the large 
amounts of item schedules to his satisfaction. 
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Si:, : 

hy^tfy^XflORAMftOffilESa 
X y yi-J^- £ £ 7 -f 'J > -518 1 , 

MEt-yh- hv7-#^Xj&<ffiB*KttE#axy 

^a-^T-^a)*«oaiRfeai«rft. cnics&s 

10 tt&TV±<D»l ©#BfflSSftjRX8£:. 

WEHB*CJ:a»BfflBfclb&i;T, M^^ryji- 

1 o-y^y^-^wEaax^r^i-^ 

Sfc. WEatt«ic±§WB5!aRlC«i;T, WE-by 

7 ^ 'j >t/tzftsb<Dm 2 0aft<Da«£*rrs*j 

ETV±«)*2©»Ba!a*t*riSi:, 
ME«B*lzJ:a»BfflB*K*i;T. »2©*^ 

20 fit, I 

Sfc, WE«e*iIJ:4«2»Ba(a«»ClSCT 4 WE 

&#a«so«a€*r-rswETv±(3!)SB3owBa!a 

tt. j 

WE-fcyh- hy^- *y^X€*UTME#a^irv 
*©»«l/&l^KtC*lt*flJE#axfr^a-^?- 

30 ^o«2a»«:afir*iat&E(c&tfr t*»at 

2] S4E*2©tf7^-:/(D#a«IcB 

as©j*BS!*i»tc«;cT» Muta^-rax 
a«(^o^t€»»ffia*JHi oEaws. 

ut. (WEaaHsnfeftfto^utfa-sa^rsxa 

[IB*«1 4] WE»HiSJ««Bfl!)«IEaiR*^>0!) 

»2<z)f^Btri6i;T, «fEa3g3n/iaacjt*-r-5T 
40 v#asa«r-5<fc5(caiE-t:?/ h • h^y • #u/^x 

3E«©*tt. 

HS*« 1 5 ] MESIH«W8H©ittEBtt#* ><0 

v*a^*fl*5»tc^a)Tvsffl*a^-r-6Ji5(c8JE 

[iSiSJH 16] ^ < t fc I )Zffl®W$]<DfcV)<D'J>te 
so <it3 0 0 CO0>«? CD^^ >*;K0#fflXfr vol-^x 
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-*£S6**xa£. 

xat. 

y-rsxn^ 

a— if— oaBOfcftKSax^a— £0>*7 

^fl!)*yy;^^&#as»Baicaif«"*xtii:^ 
i7] 'pu<tti Hraowraafcifr©** 

-*£3HT*XBi:. 
X8£, 

sc a*j k« i; x#a* v a -)W - * * 7 A $ y > 
y^-^asT^xst, 

1-*xa£a*6fc*£fc***»fci"*#te. 

2 tlT V> -5 #80* 1 © X 4r V s a - Jl'rt* <E> Br 30>#a * 
BRt^fcKfcUX, 

*-H*^&5Htt«^«)^-^s«r5xat. 

BIRrM > H»>Sr*«1"SXat . 
Ktt«R©f/;U-^tCBttrt'*2*JcyU y KfcSST 

*xa-t. 

-f > n^rtos i ©ffftx'j rfca^faxat. 

8(IE2*SyUy Hrt©»2«)f^BxU7€:a^1"SX 
gt. ME»2©ff»x»J7«WESgl©ff»X»J7«r 

^snTawi3snfc#a«)»w©J5 dices n, a^asa 

fcH*|Sl^MEff»XU7S:»»lT«>X8i:, 

ESa«)*a^BtlEff»XU7€:tt»S-&3atR#^>€: 
fffiiS-li-Sri:(CJ:*3Bfa©aa«:a«-r5xai:^ l & 

[£3#«1 91 fi1E«B«*^C0A*KJ:S3mEjgR 



C-f > K^WOttn^fflEfPBx'J 7A^filS*ifc* 
t* fiJES*i9-f >H">*-H8EftBx»J7*<»BStifc 

«atsu-^y;V"^»» ; f*xe*5icsoct* 

[§3*E2 0] fUn^a^ ***a»=i3W*ffiH* 
^-^iifc^oaRKErtiux. aiR5tifc*yy^ 

*«*+s*a£. ; 

4W>x>r >y¥atcisi;"ca^rtfl)as*aiRi"*^ 

tlcJ:0^-^9IS*BiRT-5fc«>O^-^aaa 

^#ai, ! 

20 asfttr a tr j: o s nx i > * 7o 
B^&srw&a^+s^at^^fto. 

MfE«/hS *lfc*H*** aii 3 *tc»«S> 2 *tc^^ 

*TT£3i § ©ttSX * 7 £ <fc UXSSS nx V>6 £ <h £ 
»«*T*SB. ! 

[0**2 1 ] nEwasa^iBa#< >x*< >y¥a 
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SHS§ttc:t i £«#»i:Tiia**2 0Ea<O$SH. 
[00 0 1] 

40 [0 00 2] I 

^ux««Mtc««snsBa^I8l&r-*t:-y h^* 
ft07 f -^t«/M"Sfca60*S*H»<o^»6nxv» 

ffitt. -*Hca-«f 0B*W>fc#wl'- h • • "7 



aj^Wf^yn rtfc*tt< 1 *> 6 4 0 X 
4 8 0 tf^Jl'Tfta^Ka-***— ^K**'*"* 

64 0X4 8 Olf**;!'©**^***^^-**) 

KCDJBrpUCftSNTSCS^T-Ulftt. n>tfa-* 
^-^WX^'J->^SlCO€6 4 0X4 8 0 tf^-fe^ 
t>U<l»tm±i:lttttTJtl4«ttV»t:va7^*« 

bwmw >^ • TWx-easv^xtctttttt 

5^0 3 0 0tt±<DttiE^V>*»tt. ^r-^;P*fc« 
[0 0 0 3] TV#aa<0^»Ott«^fttLT, 

>*;W;:J:oTL«UtfX* a-JUT*. ^ v >*^-> 

(£« 3 ^©-fc^&iSSTtt. lOOCD^W 

*;l,^-^*-lfXTB5»^>3. $etC3 0 0(D 
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6. L*U 5»fc«fctfl5#IHtt. 3 0»IHO«ao 

tt>a«**«x^5?a-^aftH^DawufcD-r* 

[0 0 0 4] ! 

icBSBUbfcO 3 0 o^i^r >*^*^TV#a 

T^-feX^JIIE&BBISBa (storage asset 
s) ft<»7 7 4 to*ttl>*Kt V * A<0± 

*. j 
[0 0 0 5] *58W0B«tt. f-^aa^fi^^ 

x-^aBO^B^Xir^a-JKOliB 

^J:t5x-^^^^#s^x^vIL--J^^■t^^^;^--^ , 
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[0 0 0 6] *589108iW>BW«. xHfTgfflTaa 

[0 0 0 7] 

n@ *»B*ica«ir e*it 5 KTaa&saw-r * £ 
*fla)x^ya-;v*amr*xB*«fi*n«i. sms 
fej:r«*sffia , s r '&^5icfl«w(3»^7 f -^ / <'-x 



i 



(0 0 0 8) B-ratc. *5BSB0t>fc:*&filffilCJ:ft 
10 0 0 9] *RS8<&!Ma>JaEK,k*ltf. ±ifUfc@^ 

-yii. lB8«a)SMi:*^Sft2>. a-im. TV 

[0 0 10] 

V) 1011 fflS««t-Ml4^l/Ttyh-h 
y^-#y^X (STB) 12IC»tt$nT^S. ST 
B12te£fc> '>fc<£fctt£OOfr-:/J10 r a^7* 
£»2t4^-^H 6i:»asnn^. TV 10 

iOfUfTfc^. 3>hD-720li WgOfcfcfc 
#ffl£8«T*«fc3£STB 1 2 0)i!i*«:iBWrsfc* 
\Z. HF*b<tt7U-^^-^©*y>^ 2 2^^LT 

STB 1 2^»j>^$nxiia. 

[00 11] |2 2£#!8LT. STB 1 2£<fcDf¥U< 
K»"r*. STB12H >r-y;H 6±T?A*fi-S£ 

^TM^, ifcl^yK3W*5 5^ TV1 

-fX3 0£#T£- y-7VM->*~7x-f A3 Oil. 
3R*lS|/ 1 ?Xt<fcDCPU3 4IC«adnT^S, 
A*7.3 2fcL CPU3 4Tfi6ffl**l4fc«)^-^H 6' 
tCfc£oTgte£ftfcx:^M!?a<^ CPU3 4*>6 
ir-^K >*-7x-f X 3 0 K£2ISnfcT5^;M8 

CPU3 4^6©iS»m»<t>^ttir-^;w> 

[0012] 3H*|6]AX 3 2 I'jdC^T, C P U 3 4 tt^ 
^iJ/U3 6£:frUTROM3 8fcRAM4 0 fcfcttK 
StlTH*. ROM3 8IS, ««©«tA/£*«»T* 

fcaic cpu3 4icj:»?^ff5na^^^-x>f >y 

7at/yI*$:StS* te<Ot>©0)*"C. RAM4 0H C 
PU3 4(C*-3T35ff*tl5*'<U— r-f >V7u>fy 
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4 0tt 4t-:/;m 6*^a'Bsn, fi^^U-r^ 
*<4fcB£a*i*»S, J;D**fcRAM»E*3J;tf/* 

at; 3 2 (H^-e-r) icttttsnrtJ:^. fitt«©A 
asafa-raKii. cpu3"4*vt^4 2S^LT3> 

>*;PB8a<»«A: 1 1> II/1X4 6 ^ITST Bt^ X 
yW4 8i:^n. STBfV^H 4 8 £Ss*IJ) 

[0 0 1 3] H3tt, 3>hO-72 O0#*Ll**iS 

fciiifrsrA-t-y Hio-y (vcr) (Dmmv&mu 

0 _9 0ft¥+-^*-r Stt^O)*-^^ HBO £WT 
20 So D>ha-^2 0Ji. Jb!Sj£*Efl5 2, TlPie*a 

5 4. *m^^W5 6. feS«*W5 8, 2m±ft£* 
W6 0*5J;tf2S±fl£X96 2££*-ra. n>bn 
-7 2 011^ (U) #*>6 4* *V>-fe 

^ (x) **>6 6. *<fcr;mt^to-e- (?) **>6 

V^VCRODH«<!!)»ffoe*<!:BttT*0, ^<Z>{£Jf) 

[0 0 14] *»^0<>*-7x'<XfcH^'&ft*$ f 
7 7T?«LfcH*(4, £< 2-3<0^7Xll»A»n*. * 

40 CO) TVSfflcDX^A-^SWKU S^^S'it'X 

h^-;i-w^o^$^r^7tc7^ 

«*#8iR;*n*<2:, SB*!*. n>hn-7 2 0ic<fc 

^E^ecT^7t:77-A^^ra^^£^s^ 

so ««afftt. if77T^l/fcS*©jl52©^9X«)ffi^<0 



«EoTH*Mfloa*»tMi»i:«fcna. MAT, f 

J: 7 U"f £#ra*t 5 C pJIIEr fcttfttf fc 6 & 
[0 0 15] AnAT, Stt**fcLT««-r* ^U- 

[0 0 1 61 B3*5i:tfH4*#SH-r^i:. 3>hP- 20 

52 0Tfflue>n-&fi«*o-< >^-7x-rx©»ia 
»©«5S4oott, a#©»fl s, K aetioTvio 

^yt»^77^f;i'*-K^-a-4 0 2i:LT^3tl 
5. 77<M-K^-a-4 0 2Kli* A- If- 
>fV>K) 4 0 4, &#fA-t*-4 0 6, *7 P >'3> 
4 0 8, TV4 1 0, TV«4 1 2, fi«TV4 1 
4, S/3'yfcT>^4 1 6*3J:^M^->3'V7 P 4 1 8^7 

ram 4 0 (H2(ra^) ic^iE$ntx-^±T^fT 
tiT^*t#» a«^fTtonaT»55*wxy7^» 

£p#*>5 2-5 6fc<fctf2m£Wtf£>6 0, 6 2 
H>-^-4 0 2H 71/-A4 2 OTHIcn. *COh 

^»xU7A*»raan5t. H4ic*3ttsaK « 

(U) #^>6 4Sf^BS-tt : 5wt(c<kDBlR* t fTA. 
TV^>4 1 Oli, aft (U) *£>6 4£f£I*l£ti: 
£ C t K £ 0 ftsftttffilwtt ^ ft Z t * n, B 5 

snfc*<oass 0 0 tfsn*. etui. a*4oo± 
a/«taa«#Tv 1 o<&*4Mj->±t;:«nTio*fcsr 

(X) #^>6 6*ffB1"*-tfc±0*^>"t^S*i 

£^4 0 0te£fcJiA5«fc-5Kfc3. Lfc#o 5 
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attst*. a«aisi»*i:>J-fe^ (x) **>£f£$rr 
§ctHcto^4 o o^H-rrt**^*"?**. 

[0 0 17] H5I4. v^b r E3&J a*077^^* 
0 2©T^Ti::ffifcQS<<fc5fcl/t8 

fTVj £^;M*ttSftfc77<A'/)— F>Xa 
-5 0 2T*3nfc»2&»©«S5 0 0£ST. 7^ 
;HVIi. 7^t^T€^S^H7^ 8823 * 

A _ tr-^> v 3 t: >y tt«©**fiffl* * >o> h tr v £ 

Hpt-a-5 0 2ti, ^>t^5 0 4, CM-£x-<5 
06, Tft5 0 8, £-f~£X>H 5 1 0, tttR5 12 

5 0 211, r3>hn-520 <B3fcB*> 

>5 2-5 6*5«fctf2ffi*W#^>6 0, 6 2S*»S 

tf£ c <h tr £ 0 «tt**<g»rr S - <h#TS Sfttftx 'J 

7**rr*. a«*n*t*frsns 
t&35!^7^£U >££**$*■ 05-eti. 

0X9 >S 0 4#*IHSnT43D. a& (U) #£>6 
4£fl*T*C<tKJ:0aK*nfc*^ 06K*3*l 

fcfB3a«©a** ? sn, ram 40 21:10*) tc 
gaBsnfcx-^©aeteia»jft«fctf/*fc«7-f^ 

[0018] ® 6 t. a** 6 ooit 3t£© 

$«i <;i<&BTM;flFa6»3 0 5» i^nT^st)© 
^^To -r^To>7-n;#ifl©w^snfcaa6 0 2 

IS, B6(C^SnfcSttfl)pj&l»Cf7bnT^2>t)«>«:^ 
"To H/h3ttfcSSi6 0 2tt. tfofcOtHRSK*^ 

^xc^^fi^n-t'ntiWT^o xa 
a/>^u-aa>it # €KMi"sfc*i-^K 5/:t>f h 

0 2 tc*5^TK»js*ifcaa©^-f 7 r ic* 

i»Ttt. ^#-!y*a#x#-!y«n«>Tv*a*^a 

afc*tlTl»5. ±IP1S*'H15 2fe<fetn r lPl**BJ5 4 

^6 0 2^±tic, tt/h*nfcaatca>Fsnfc9is<fc 
0 t>^*f frizm^mv&'C > ho 6 0 4 z-^rxm 
-r*s*s. B/hsnftaa6 0 2ic^-3fc^fix«j7 

<oe»«i. ±t)b<tiT^'l*7c-C^5. ±f£]^?<^6 
» 0tTrSl€f*H16 211, 6rttja'>Snfc2a6 0 2 
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©±Tlc:i<D8iJW-f >H , >6 0 4*eBS-ti'S. SIR 

[0 0 19] BKO-f >H0 6 0 4fcAt« r y v HS* 
6 0 6tCtl *S6 0 0OH^©8B»»C43»S**aB 

XU76 0 5* 6 0 714, ±[pJ#*BJ5 2&£tfTfi£ 

*aJ5 4ic«i;TS^»isanT»» , re. ±01 *x 

915 2*fcl*Tl&l€r*EP5 4*«j8R9-f>H0 6 0 4^5 

U y H«5R 6 0 6 «fc 0 fe± t> b < I JTfcffcftX U 20 
76 0 5*5<fctf6 0 7£fMft£tffc^iT*«£. ^~ 

6«T*<oT»»rr*. ***Ba f fM&xy76 0 5, 
6 0 7ftl::&£*i£, TVOft^M^-^^ 

»»tttf«>* AM4 0ICE«*nfc#ft 

ijyHas6 0 6ki»oTftt)oT*DUsns. en 
0 4ic*W5aa*nfc#ifl*«*Bt-aR*^- -tfi 

fr^Sl5 2fcb<JiTlPl€r*PP5 4*^tt3n5<l:, 14 
BOftyi/lfa-^a«5n«». 7U-A6 10CD-& 

tt«>»aucKan-&. 7U-A6 1 oo&gpnn a* 

M^£fc* (?) #*>6 8jWMSSn 
4fiJtSnfc^^ — a— A^yj 7 0 6 

cttoTfw«"ca*3*i*. ctDifiSsnfc^u^^ 

[0 0 2 0] 03fcJ:l/B7£»SabT. rty-:* »J-K so 
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*rt* (?) #*>6 8t?Df^SiljfCj:D. TV1 0 <H 1 K 

0^) <o*£y->fca*7 potfsns. ^700 

ICll ^y#^>7 0 2. *f=f , J-#5 r >7 0 4. 
h'zL-#*>7 0 6, Bl»*^>7 0 8, 
>7 1 Ofcitfa-tf**^ 1 2#ffaT*. 
y > 7 0 4 JbKSSftfcffftx 'J 7li&8J#* > 
5 2-5 8t±0»»Sn*. fc'a-#*>7O6 0{S 

b&V>. <\)V?#9>7 0 2©ft«KJ:»K WSfiO/x 
PU3 2(-«fcD««*nS*V ££lit><>:9t>b<li& 

it*»*©#ffl(oy^h**atis. a-if#^>7 1 2 

#*>7 0 4©ff»»ci:0,;Tvi ocox^y->±tc 
*S7 0 0i:«otRboT. B8K«S*ifc*<&2bF 
8 0 o^a^sns. j 

[0 0 2 1 1133. 8*<fctf 9£#«rr*£. a*8 0 
OCIl #ft<0#*>8Oi, 802, 803, 80 
4, 8 0 5, 8 0 6, 8 0 7, 8 0 8*i«fctf 8 0 9#& 
0, cn&ii #*<B#«.' X>*-T<* 

et#&. vy-xt)CD^<t^n^o*ixr/y-^^ 

tt^tltfJCbT^S. #*>8 0 1-8 0 9ll *B3# 
^>5 2-5 8*ffl^*Ct(Cj:0»»Stl*ff»xy 

-tb-cmMco^x^y-t^^<^ifjxy7=£:^i!i^ 

tf*fc&fcffl^&n*. tf*>8 0 1-8 0 911 

H 5 O©1^90*--a>E*J£EIi;*t3£J 

*3^j<oiEWcia^nT^«>. iwot. ±>^y> 

/^tAH 3«B<0HMfc.fctf3#a©«flIfc&S 
8 b 9. Cff»XU7*9»1- 
+wVy F5 0<B3#i©«*M3J:tf3#Ba> 

-5. #*>8 0 9ll fta&fetifcaiRSiSfltbTSSrt" 

•j 7^0 8 i:*snt«t o\z7s#-yiM? > 8 o 5 \zh 

0, StR (U) ^^>6 4tiWW)2nZt* 09tC^$ 

nta^sn*. H9«l ^so^otf^^ic, &3 

51|»3^W1^^>9 0 1- 9 0 935^&*, 

U7«)»»ll B8tH«^H8C43urt)PlfiST» 
5. *5^>9 0 1-9 0 9tl PS, 7y ^' 
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*{ryb#-;K -fry*-, <£"C) , *v^r 

*-;i^*>9 o 5an©H9«i«*nfc#^> 

HI OiC^Stl/c^l 0 0 0*«»«9 0 0IIS-3T« 
[0 0 2 2] Ell 0£#Wr3£, *«6#3 0»«.« 

TOt>too, fio. tt^snfcasi o o 
nfc*si oo2i^ s«snfc$S£fc»<D«»c.fco 

L*>x>MJ£8fcfct>. #a r^x-^-f 

• -f > ■ if N B Aj £^T*-a-;*7-K 10 0 3 

• -f > • if N B Aj : 3 0j&>&te*Q. 

SSa r>/-7PGArf;U7j tt, SR-JH^F^ 
l o o 6i;:fci-t£ r->-7PGA^7j co^-f h;K0 

r->z7PGA^7j tiiw*tt>rai;wMK87-r 

SCOT 1 , tg/hSnfcSai 0 0"343j:tf 1 0 0 4<D*ffl 
tt, RUfiH"C«*3t)TV^. tS'h^nfc^Sl 0 0 2 
©f^MXU71 0 0 5©»»*>U<liftft». 0 6 £1*1 
«lC3>hn-7llJ:oTfT5. ^«7< > K£ 1 0 0 

0 10-101 5£8rO, fl#*ffi«i o 1 o-i o 1 

5. n>hn-72 0CD81R (U) #*>6 4£#I*)T 
tC. i§*R (U-) #^>6 4tt. -<0^*T, CPU**, 

So 

[0 0 2 3] HSH1 OSSH-rst. #tt43J:«ISH 

H*n&«£, n^omm££t\zm7\z7T^nrzt<^ 

7 0 0*«HKS^S*1S. t*rL-**>7 0 6 

jWtiftSttfc«£. HI 2(C?nSnfcSSl 2 0 0*5«t 
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2*1 2 0 0\t, 202, f61 2 04, ft 

& 1 2 0 6, 9-f->T- 1'2 0 8iSj:tf , >'f-*X> 

M 2 i oeowssstf^^rt*- ±tox*-7o 

ff»lU7* t fS#3'>l 2 0 4£»HT§«fc3fc#» 

strc, #*>i 2 0 4^W^ns<h, isi4ic^$ 

ftfcS* 1 3 0 0 *«atl, 2 0 0 ±\z&uz* 
[0024] S^1300 IC*3HT, -r-^EB^SlR 

antif^y^-^2^(7)jKttT^n-t*n7^^ftw 
10 snfc2t?o>jitstaij&«ss*aTi^. asi3oo£* 

3*lfc2O0JRtttt, *(0 2 41$ffl<0*^A;*n? ho 
1 2^W<nfc)bO?*s*)V£9'<h7.Uy h"C& 

fi&, *® 1 2 BWEArt© 3 0 0 EU:©*-* jw:^£ 

na^#-y#tt^"tn-t"Ha«i 3 0 0K«an*"C 
&57. #x#-y#a©T-fttt. *<o*fi£*»T* 

20 ^en©»»©fcA(C±*5j:dfTl6l€*95 2, 5 4&cfc 

t>ffibxu7 1 302 *»i&£ttT*;:£tfT£*. a 

iR1 3 0 0^6b*>*J:5IC. *MWfcRIHrt-C**ve 
n&*«T*lcttityy^7^tctt*fc'#<<05 s -*a 

#-;i< ic .k * a e^j s 7 * u > *w#s £ £ n* , 

EK>a:fott (?) tf*>6 8£ffU 0 0 (0 7 

30 fcH*> *K3b7 : =fJ-#*>7 0 4ftH 

«U ^^9 0 0 (0 9I::H*) £^kT£<» ^ 
X^r-> h*-^*^>9 0 3£3§1RU 01 50)^1 

i^KL^^o-e. a^ i s o o ti*co i 2 »iata« 

•5tC. 2*S«>yUyHaS1 5 0 0tt. fil6©*» 

5 2, 5 443J:t//*fcttfe*J:tf£lfilt^Bl5 6 5 8 
40 *ffl^T2*5c«>y»Jy H»«l 5 0 0rtTffBxU7 

5 0 0O7U-A(7)--#±fca^$itSo fctAa, 
»XU7 1 5 0 2lCJ;0«iH^nfc#«tt- r->*x • £ 

.-f> -ifNBAj t^o, -emacNN-cft^ 

$ft£„ L^fc^T. Hl ! 3^>T?Snfcft^lC<l>Sffl 
<0»*1 3 0 0ZMRmZ7 4)l>?*)>>/?Z>Z£\Z& 
oT, ffi a"5IflE**Ra>34S 1 5 0 0 KtS/ht s r 

so (kA^T-SS. 
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[0 0 2 5] HI 6-2 3*£!BLT, *RW0>M©H 
ffiSgBWT*. HI 6*s<kWao«)HBT«i. IBB* 

^tf ZL -/na-4 0 0t:^i!)$n, »B*iiB*Mfcl/ 

[0 0 2 6] <fcoT, • C7-f — ^ — f > 

• If N B Aj £JiTV>T, *(a*a>H*»*#ffl*li.fc 

>£tt*U HI 0©««Sffl1"Cft^5. 4EIEU:0 

^9 0 0, 8 0 0, 7 0 0££tf5 0 0^£ii&. 

a>#«<z>*-f h;u*aj-r»i»* &mx$ > s o 9 » 
h i 6 £^>* soo H 1 6 

tf, TNOVAJ AWS0>#»0*-f 

fW»X'J7«. SIR (1/) ^^>6 4<Df^ifeir<tD 
£tt StlSi 1 7 iC^Stlfcck 5 K±|p]£-3cffl 5 2 £fc 

0, HI 83&«H1 7 0±Ktt8«£»fcS. ®18l:4S 

ut, fl*ftx»j7tt. Hi 7K^$ft£cfc5tcMi;::fctt 

KfcJ&.'S^OOOfcW:. flffl<0 2t?©X*tC^^ 

Y^N©«(ia<fcofct>i:'3fl)«Tfe?>. *bT- 2 

^^TNOtC^O^^n^. NOVAIcm>Tft**:0 
-^WSlCtt. Tlft^*B15 6€:ffll>TfPBiX»J7«rH2 <o 
1 IC*3*lfc<fc5lc8*2 0 OOWNO^H >IC 
»»U XtR (U) #?>6 4£fMJ)T£C<hK£D, 
$22 <D^* 2 2 0 0 2 0 0 0 ICffift*. Stt< 

NOVAIt NOVTj6*-5*tt©3t-3fct>toa)«T 
&£(DT, hJPNOVA#B2 2tCRn<&. 

2 2 0i:*5^TNOVAt7^;W*»anfc^<> 
fcfM*X"J7fclM»U SiR (U) **>6 4£ftl!it 
SC££cfc*K ->>J— X*fflNOVA<OB59iai:^+> 
*;Uttt)iCH2 3fC«*Mfca>n2 3 0 0*««»2 2 
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[0 0 2 7] B2 3tt. aaWS^JEO^'J 7 

ffik CO*^tt-»±Kl*¥ , *flIK:*tJT2 4BnBTa 
iSS*vn**. ioT, NOVA©Xt!y-H^H*H 

Tl^o f^»X'J723 0 2tt. *-<M-yF5 0a>*Hl 
5 6, 5 8T*¥*|fi»w, *B15 2. 5 4TSit*lfi]»C 
»ft*Jte"C»a. *$£0«©»£0fl**JKNOVAaqH 

fc#?0XKJ:D*Sn*. 'SEP (*) tt. *«©«8 

vAoaaw^Dy^A^iia^^y^^fiFa**"*"- 

tf, BU*»©#ffi©XVfV-H<0^^:y^) £fl*bT 
»» b < ttftff-T * Ktt* j C <D* 3 g«<0 S * <&fc* 

>6 2£gffl"t£. ««2 3 0 0*<8tt$"f MWifc* 

- T?m 7^— ^or>tifai>-f >J«i>1 9 0 4ttSS2 3 0 0 
HO^Ttt®ttJ:0*€^.;$e>»C, 71/-A2 3 0 4 
12, X5'^^rt^i!lX'J7feeJ:0± : bL<BTIw$) 

jg)o y-^H 6^^7A«>3 0 OKJ:© 

^©7£*X£*rr*«°- N0VA4fO^< 

2 *5ct> b < « 3 *5cl;i J3l»T»S<OX> h V II 
ff»X»J7*»»U, *^>6 4^^BT^ 

a«^tf*3tis. awn*, aattrto* 

ffiwl*W^1#ft©^'V>*^*EtS1"Sfc«>«)77-A 
[00 2 8] Hl*5J:tf2«cMO, 

^o>x-*tt*«Wic2esn. sTBi2iaco#a 

^^rs;3.-;l'7 f -^*:fit3L, RAM 4 0 dEBf*. 

Ud^lCll^^n, STB 1 2 H<t DS6Stl» 
RAM4 0i:E»$*a-6. SlOi^&aiar-^^ T 
V Data, 1 nc. £itf<t©»<&ra«©£tt*>& 

-5t>b<tiVu-Hli, CPU3 4ICJ;^IB^. »ffl 
-3-C7U>^nfc7*-[7-yhfcS*lTt>5. TVS 
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tf) ^ST^o #SiU »*U fitt*0A*£»Bi* 
lc&*£7ah$^7<D7a^7A<DUXM^ OTco 
CPU^a^A'JXM:SStiTW. dttte* v-f 

[0 0 2 9] t'^7;^^->7^ • yah^-f^* 

7*™£tt, RtA/£©H*0«^wffiti6ns/ty^ 

D-DT7^^7t"A (rolodex for 
in) tt, ^CDfdl<Z)7*-Ate, 3 
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t 

C0 0 3 0] -^uifyhmmwt. -f^xoyt-i* 

ij^->3-H©W'J:oT , aa:5»^tfT5. 7U- 
[0 0 3 1] 
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*==a«*« COMING form cod* c«===r 

option Explicit | 

Dim aUDatatBI As snapshot &iJ$fa0t'<ZC)T — £ 

Dim filcerDaca(B) As snapshot fcjr tS>&SS©>l^ * */>3 * I* 

Dim NDays As Integer 2l?T<W£>UjSt 

Dim KSlots As Integer &j*t*3<Z>83M8( 

Din NStaclon AS integer ^^WO&Bl 

Dim fcaxStation As Integer x— *"*-3.fStf>£2raffi 

Din colorField As String JRUCDa^-t&STS?— 7* -/U H 

Dim inprevi«w As Integer 'boolean / i/tt^f A 4 ? 

Const Bide<5ap.= .05 ««0^fi6fc*ITOraffl 

const topQAP - 4 * < &5^}\tt&i(b*imvth®rm \ 

Dim re f Date ^-^WSH© 0 77P>7f- r • 

Conat IblHeight « 40 BUii *V®f$l7'*fl><0&Z< (5 0 0Xr-^) . 

Conet NINFrogWidth - .2 A D * )*0>88ff2tK3>S'MH | 

Dim slotsPorDay As Integer — BCflrg3ft-5*n ? h OS j 

Dim cur r Day &&©Bft j 

Dim etartTirae &^<2fffl$!&B&# \ 

Dim TSBagin As Long £&}?»5$J 
Dim TSEnd As Long 

Dim TScurront Ae Long JESl?£0^rJ*1 I 
Dim rowOffset X>TV j.— iWOM (_t#J) RSeDffK j 

Sub ApplyFilter (I | 

Dim i As Integer ftV'sf \ 

if InStr( filters (currDomain) , "Station") Then , 

NStation. « 10 £ : Cfltt JJ-t & < 1 0W±©£Rfc U< fc*'* 3 T $ 

colorField » "Type" 
Else j 

NSr.ation « HaxStation j 

colorField - "Category" 
End If 

For i = 1 To NDays 

allData I i) .Filter «• f ilterot currDomain) 

Set filtcrDatati) » allData ( i) . CreateSnapahot () 

Next i ' 
End Sub 

Sub ChangeSel (d As String) 

Dim current, flrstKatch -r— *X* — ^J — 
Dim success As Integer (7*- -^V) 

Dim s Ao Integer (Xf-'>3» j 



t 
I 
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Dine TSK7 

Dim TS As Long ^^i»^D-y h j 
Dim F As *n*pshot 
Dim aDay As Integer 
Dim dUt £8 

Dim best Aa Long. bestMark f-^'S-^T-ij-t l/T 

current » f ilterData(curxDay) .BooJurark ; 
Set F « f ilterData (currDay) 
9 = Fr Station") 
e - F('FinisHTS') 

TS o TScurrent i 
aDay * curxDey j 
success e False 
best » 5995 

If d = "RiohC* Then 

F.HoveNext 

I£ Not F .EOF Then 

TS - FfStortTS'i 

= a > * IT^OSfflftCt fc8§$& 

success * IF {"Station - ) - s) And (TS <* e * 1) 
End If j 
If Not Buccefifi Than 

' c 1 osesf <Z> fcfc l/T t k-c * ^ x * * 
F.MoveFirct 
While Not F.EOF 

If Ft-FiniohTS*] > e Then 

dist = VDlBtHocixU. o, T ( •Station' ) , FCStartTS'J ) 
If diet *■ beat Then 

best = diet : 
success * True 

bestHarJc = F. Bookmark j 
End It 1 
End If 
F.wovewext 

Wend 

if success Then 

F . Bookmark » bestMark 

TS = FCStartTS*] , 
End If 
End If 
Eleelf d a -L«fc* Th»n 

F. HovePreviou* ; 
If Mot F.BOF Then 

success - <FI 'Station') • s) And (FCFinishTS" ) »* TS - 1) 
TS = PrStartTS') j 
End If I 
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23 2 * 

It Wot succett Thon | 
'closest' COt>T£CWU-C/^-Cfe^* y^ I 
F.MoveFirst 
While Not F . EOF 

If Ff'StartTSM < TScurrcnC Then 

diet o VDistHoriz (F( 'Station* >. F ( "FiniahTS" ) , s, TScurrcntI 
if dist < beet Then t 

best ■ dist 

success = True 

be St Mark ■= F.Bootanark 
End It 
End If 
F.HoveNext 

Wend 

If success Then 

F. Bookmark « bestWark 

TS = F(*StartTS") 
End l£ 

End If ; 

Elself d • •Down" Then t 

•closest' Z&vft* *3Ea&^tOWTc9T^T©ff«M«r^xy-J? j 

yJhile Not F.EOF > 

If Ft "Station* > > a Then | 

dist - VDiotV«rt(8, TSeurrent, «, . F t 'Station* ) , t { "StartTS" ) , 

FCFiniohTS-)) j 
If dist < beat Then ! 
best ~ diet 
success c True 
bestMark = F. Bookmark 
End If 
End If 
F.MoveNext 

Wend 

If success Then 

F. Bookmark - bestnark 
ts * F("ScarcTS") 
End If 
Elself d - "Up" Then 

'closest' ft* — 7bTS^OtrOJ:O±©T*<T0>SHft*-xy0 
While Hot F.BOF 

If F I "Station" > < s Then i 

disc - VDisbVartla. TScurrent, e, F< "Station- ) , FCStartTS" ) . 

FfFinichTS") ) 

If dist < best Then 

best ■ diet 

cuceas* = True 

hostMark * F. Bookmark 
End If 
End If 

F.HovePrevioufi 

Wend 

If success Then 
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F. Bookmark = bcetMartt 
TS « F("StartTS*t 
End If 
Lnd If 
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It success Then 

TScurrent » TS 
cuirDay = aDay 
Dispiayprog 

Else 

filtsrDatat currDay) .Bookmark o current 
End If 
End Sub 



FCFinish'), F( -Station") 



Sub Display Prog () 

iff * j> zftizmvmwmmm. 

Din P As snapshot 

Din re eg As String 

Set F - f iltarData IcurrDay) 

shpProg(ff) .Visible = Falsa 
selector .Vieibla => Faleo 
Position shpProg(O). F( •Start"), 
CPlace 0, selector, shpProg(O) 
shpProg (0) .Visible = True 
selector .Visible * True 

■ wa* ^-fc-^ 

itsg = stacionString (Ft -Station')) & " - • fc Ft'Title") 
msg = rosg & Format (F< "Start" ) . "h:mm AM7PKM 
msg « rosg & * to ' & Format (FCFinish' > , "h:mm AM/PM*) 
Setlnfo msg. Color (F(colorField) Mod 9> 
End Sub 

Sub Do Preview { ) 

Dim msg As String 

msg e -Station: " t StationStrin? ( f ilterData (eurrDay) ( 'Station- ) ) 

msg • msg t Chr(13) fc -Title: • 6 Cilt*rData IcurrDay) i "Title" ) & Chr(13) 

msg = msg fc CategoryStrinfl ( ( EilterData (currDay) (*Typc" ) ) , j 

( f ilterData ( currDay) < "Category • ) ) ) | 

msg = msg & Chr(13) it "Time: • I Format 1 1 iltorDat a (currDay) ( "Start" ) . "ran d,yy 

h:rom AM/PM") ! 

msg » msg U Chr(l3) St * to * 4 Format ( filtarData (currDay) ( "Finish") . -h.mm 

AM/PM") 

popup. Caption » msg 
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popup. Top ■ lblTlnMD .Top ♦ 2 • lblTimeU) .Height 
popup. Left ■ 2 

popup. Width = &lotsPerDay - 3 ; 

popup. Visible = True ; 

inPieview * True j 

End Bub I 

Sub Deselect n ! 

UGorStacion * ffilterData leurrDay) ( 'Station" ) 
ucerStart = filcercatatcurrDay) \ 'Start" ) 

retumcodo * TOTV j 
Me. Hide ! 
End Sub 

t 

Sub Draw Pro? (col or Index, start, finifh. station) ; 

•note: foro.AutoRedraw should be act to true bo the drawings are pars ic tan t 
Dim L, R. t, B ^ Yv~?s XV k j 

Din dayS tort } 
Din edge } 

dayS tart » atartTime * currDay - 1 
L « Utart - dayStart) * 49 
R = (finish - dayStart) * 48 

If L < 0 Then L * 0 

If R > slotsFerDay Then R ■ clotcPerDay 
* Sfl N <D 'J v S C T 3 « t' sL 1 1 * B t B < 
edge = (curxDay - 1) • slots Per Day 
L » ti + edge + sideGap 
R = R * edge - sideGap 

If R - L < MTNPxogWldth Then R * L ♦ HINProgWidth 

rowOffset = ( (500 - 2 * lblHeight - shoProg (0) .Height) / NStation) 
t • ehpSlot (0) .Top ♦ topGAP ♦ (Station - 1] ■ rowOffcet j 
a - t ♦ shpProg(O) .Height 
it \,\yjj9-*rtv < 
drawwidth * 1 
Mo.FillStyle - 0 V y y H 
Me.FillColor a Color (colorlndex Hod 91 

Line (L, t)-Step(R - L» B - t>, . B SWlBW^f V3tV Wy^^tOK 
box ; 
End Sub 

Sub Porm_Activate (> 

Dim i as integer 

Static eaveFllter As String 

If DovcFilcer e filters (cur x Domain) Then sameFilter e True 
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saveFilter ■ filters (eurrDoma in J 

SetStatus *TV Coming Up: ' t currFilter(TV) , greyCOt/OR j 
I? newuser Then • 
popup. Caption - "Press ■ *&W UTS* <* K"C^ 

popup. Visible - True ; 
newUaer « False j 
End If 

If Not sameFilter Then j 
Set Info * Loadino program information...', GREY 
shpprog{0l .visible « False ; 
selector .Visible = False 
Apply Fl leer 
HaXeDicplay 

End If 

OieplayProg 

If iru?reviev Then Do Preview 
End Sab ; 

Sub FornufCeyDown (KeyCode As Integer, Shift Aa Integer) \ 
Soloet Com KoyCodo 

End 
Caee B_BACK 

r*turnCod& = BACX 
Kg. Hide 

Case B_HELP ! 

InvolceKelp 
Case e_P REVIEW 

if inPreviev Then | 
popup. Visible » Fals« 1 
inPreview = Falee 
Else | 
inPreview = True ! 
End If j 
Caee B_RIGHT i 
tt Mot filterDato tcurrDoy) .EOF Then ChangeSel ("Right*; 
Caee B_LEFT 

If Not filterData (currDay) .EOF Then ChangeSel (*Leff) 
Cae« B_UP ' 

IF Not f iltorData (cuxxDay) .EOF Then ChangeSel ( -Up" ) 
Case B fc DOWN 

If Not filterDatatcuxrDayi .EOF Then ChangeSel CDown')| 
Case B_S ELECT 1 

If Not f ilterData (cuxrDay) .EOF Then DoSel»ct 
Case B_PAGEDOWH 

ca»e B.FAGEUP ; 
Case B_FILTER 

retumCode » Filter j 
Mo. Hide I 
Case B_0 ! 



I 
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retumCodo 
kg. Hide 
End Select 



SHORTCUT 
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if inPreview Then 
Do Preview 

Else 

popup. Visible » False 
End If 
End Sub 

Sub Porn\_Ooad t) 

Dim i As Integer 
Dun t 'as time 



7*- A*9-fc7jrW**s> h 

Me.BackColor - formCOLOR 
chpProglO) .BackColor • BorderColor 
lblDaylOl .BoekColor - backgroundCOLOH 
lblAM. BackColor - backgroundCOLOH 
lb 1 PH. BackColor - backgroundCOLOR 
selector .BorderColor - BorderColor 
dayLine(O) .BorderColor « divideColor 
iblTime(OJ .ForaColor - slotCOLCR 
shpSlot(O) .BorderColor • BlotCOLOB 
If diaplayttode = •TV" Then i 
lblDay(O) .FontSiza a fimallFONT 

lblTime t 01 .Font Size ■ small FONT ] 
lblAM.FontSize » small FONT j 
lblPM.FontSize ■ sraallFONT j 
popup. FontSi 20 - rtediumPOKT ( 

Else 

lblDuy(O) .PcntSize * laroeFONT 
lblTine(O) .Foncsixe = largeFQNT 

IblAH.FontSize » largeFONT I 
IblPN.FontSize « largeFONT | 
popup. Fonts! ze « largeFONT j 
End If { 

SizeAFom Me, DiepTop, DispHeight, Dispbeft, Dispwidtb 
Ha. Scale (0, C)-<500, 500) 

SizeAControl lblDay(0>, 0 r lblHeight. 0, 500 

SizeAControl lblPM, 0, lblWoight, 0, 30 J 
SizeAControl lblAM, 0, lblHeight. 500 - 30, JO 
SizeAControl lblTirae(0K lblHeight, lblHeight, 0, 50 

SizeAControl shpSlot(O), 2 • lblHeisjht t .5 * topGAP, 500 - 2 * lblHeight, 0, 50 
SizeAControl popup, 250. 200. 250. 200 j 
selector .BorderWidth - 1 
doyLine(O) .Yl » 0 
dnyLlne(O) .V2 = 500 
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etartTitae « faVeToday ♦ faVoTime 'this would bo set »t activate to current half 

hour ; 

NCays = 1 | 
slotsPerDay ■ 24 

NSlots - NDays * slotsPerDay , 

sa/aeFilter « False : 
uameVicw « False 
inPreview =■ False 

7±-L-x*r-)\fHw?\"<xti3*yy%R i dav ond tim * ia*>«i»> i 

Me.Scalewidth - NSlots } 
Load lblDay(l) j 
SizeAControl lblDayU). 0. IblKeipht. 0. slotsPerDay j 
lblDay(l) .Caption « DayStrintjl start Time, "long" ) 
IblDay(l) -Visible * True ] 
lblTime(O) .Width - 1 

For i « X To slotsPerDay 1 
Load lblTiioe(i) 

lblTiroeU) .Wove i - 1 i 
t - DateAddCn". 30 • II - 1). stertTime) 3 O#0j£H3#J!jfl;lS 
IblTime(i) .Caption - TimeLabel(C) 
lblTine(i) .Visible * True 

IblTimelil .ZOrder j 
Next i I 

i 

In put Data ; 

FomuActivato 

cajrveViow ■ True 

End Sub ; 

Sub Input Data {) ' 
forajoatto 1 65 I 

j 

Dim DB ab database j 
Dim RefSnap As snapshot I 

j 

Set OB = OpenDatabaseirVDB) 

t 

t 

■get reference date and number of stations j 
Sec RefSnap = DB.CreateSnapahct ( •Reference - ) j 
RefSnap.FlndFirst Bff ! 

refDate - DateValuelRefSnopi'Data*) ) 
Ro f Snap .FindFi ret N S >' * 

H&xStation «= Val (RefSnap I 'Data" ) > 

Set allD»ta(0) * DB .CraatoSnapshot ( -Programs" ) j 

i 

rsBegLn = Abs(DateDif f t 'n* , staxtTiree, refDate) \ 30) 

TSEnd - TSBegia ♦ slotsPerDay - 1 BlotsPcrDajtf-t? y Y StlfZ Z * 9 

•llData(O) .Filter = Overlap (TSB©Qin. TSEnd* 

Set ollData(l) = allData(O) .createSnapshot ( ) 

Set allData(O) « Nothing 'won't be needing everything 
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End Sub 



Sub HakeDl splay t) 

Dim i As Integer HOsf 
Dim ri* A3 Integer D£fc 
Dim F As snapshot 

It Hot sameviev Then 
End If 



DoEv«nt* ^CJ^CTS 
For d ■ 1 To KOays 
CurrDay - d 

For i - 0 To alotaPerDoy 
dxQvrwidth « 4 

Line (i, ihpSlotlOJ .Top)-li. 500), slotCOLOR 
Next i 

Set F - filterData(d) j 
If Not P. EOF Then j 
F.Mov«Pirst ' 
Do While Not F.BOF ! 

DravProg FlcolorFiold) , FCStarf I. F< 'Finish' I. F t "Station" ) 
F.MoveNext 

Loop 1 
F.MoveFirst 
End It 
Neve c 



TScurrenc » TSBegin 

currDay = 1 

3hpProg(0) .ZOrder 

selector . ZOrder 

Sec F - filterDeealcurrDoyl 

Do While TSeurrent <= TSEnd 

F.FindFirat Overlap(TScurrtnt , TScurrent) 
If Not F.NoM»tch Than 

OisplayProg 

Exit Do 
End If 

TScurrent = TScurront ♦ 1 

Loop 

•fSturrunL^annr^lI 3E> £ w £ £5SK 

If TScurrent > TSEnd Then TScurrent * TSBogin 
End Sub 



sub position (shape As Control, start, finish, station) 
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37 33 
Dire relatively relativeW. dayStart 

Dim edge , 

Btt/fcratNSlot:*'/- )i><rXl&£X®. | 

dayStart = startTime ♦ currDay - 1 j 

relative!. => (start - dayStart) • 48 j 

relativeW = Uini&h - dayStart) 4 48 - relativeL j 

H M1 fcv> TJKtt * W 9 ffi * j 

If relativeL < 0 Then j 

relativeW * relativeW * relativeL i 

relativeL = 0 
End It 

If relativeW ♦ relativeL > slotsPerDay Then relativeW e slotsPerDay - relativeL 
edge = (currDay - 1) * slotsPerDay 

ohope.Left - relativeL ♦ edge ♦ sideCap I 

ahope. Width - relativeW - 2 * sideGap j 

If shape.Width < MINProgWidth Then shape.Width = HINProgWidth 

rowO££s«t * ((500 - 2 » lblHeight - chpProg(O) .Height J / Natation) 
shape. Top ■ chpSlot (0) .Top ♦ topCAP * (station - 1) * rovOffaet 
End Sub 

Function VDistHoriz (stationl, finish. staticn2. etart) 
Dim dcltaR. deltaT 'ehange in row and time 

Dim rowl, row2 | 

rowl = stationl i 
row2 b atation2 

$ ; x^-^a >it i n kn Wft(?6nT^av^i8Sttwoa-»a | 5 ta*ctt4 i 

deltoft - Kbs(rowl - rov2) * (100 / NStation) 

deltaT - (start - finish) * (100 / slotsPerDay! j 

•penalize programs that are more uptdovn than to aide \ 
If deltaT <- 1 Then deltaT - (£ini»h * 3 - start) * (100 / slotsPerDay) 
If deltaT < 1 Then deltaT = 100 / slotsPerDay 'don't allow zero | 

VDistHoriz • daltaR * doltaT . 

End Function j 

! 

Function VDietVert (stationl. startl, finishl, 8tetion2. start2. finish2) 

Dim deltaR, deltaT 'change in row and tine ( 
Dim rowl. row2 - 

rowl = station! : 
row2 - scation2 j 

deltaR • Aba (rowl - row2) / NStation j 

If startl > finish^ Then [0 0 3 2] 

deltaT « Abs(startl - finiah2) 
Eleelf start2 > finishl Then 

deltaT * Abs(otart2 - finishl) 

Else 

deltaT =0 40 
End If 

VDistVert = deltaR * 2 • clelcaT 
End Function 
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Option Explicit 



$mW$ ~ 2 9 2 8 6 6 

40 
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Sub Forra_ J Accivate U 

Select Case recumCode 
Caee SHDWVTEW 

views (curxDoma in > .Show 
Case PICK 

frmS elect .Show | 
Cose TOTV | 

fnnTV.Show ! 
Case LASTVTEW ! 

sauneFilter • True j 

vi ewe ( cur rDaroa in ) . Show 
case startup ] 

Case Else 

frmDex. Show 
End Select 
End Sub 

Sub Fora_KeyI>own (KeyCodo As Integer, Shift As Integer) 

If XeyCod© o AccfQ") Then 

End | 

End If 
End Sub 

Rub Form_I,oad [ ) 

Me.BackColor ■ formCOLOR 
asplnfo. FontSire » mediurtFONT 
ospstatus .FontSire ■ mediumFQNT 
/< y * ■> > K 0*-* Xtft taH-cabull tin* f h SttW 
ScrWidth o Screen. Width 
ScrHeight a Screen. Height 
If displayKode « 'mini" Then 

ScrHeight * ScrHeisrht • .54 
ScrWidth « ScrWidth * .712 
displayMode = * TV* 

Else 

ScrHeight - ScrHeight * .83 ! 
End If ! 

IrmFranic.Top « 0 
frroFvamo. Height = ScrHeight 
f rmFrame .Left ■ 0 
frDFramo. width e ScrWidth 

asplnfo. visible ° True 

'J-^Wv^r-i'XvO I 
sspStatus. Visible « True 

DispTop « s spin fo. Height +1.5 j 
DispHeiflht o frraFrame. Height - (ccpStatua . H«ight * l.S) -j DiopTop 
DispLeft e 0 ! 
Dispwidth = fnnFrame. Width 
End Sub 

Sub SetupStatus O 
End Sub 



[0 0 3 3] 

! 
I 
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Z(D'J-Ytt3*3®»Z Y®7*— A (TV, A-Vf-. ^9*tf>#) T^TC&ESfl* 
Option Explicit ; 
Din DB AS database ' full database with indexes 

Din BlinkConcrol As Control fflMf ©tfT^x^h (£&t*&U) C-t * V 
Dim itemSeiected As Integer 1 £MXDIS , LA7>*v 

Din lecSelecced As Inteaer ltpP)HXXL0O\ , 
Dim inPreview As integer JSJISS (7— JP) 

Dim ceptionField As String RTtfcffiH 6*1*?— 7 7 4 — Jl K 

Di« startTirce T V 'J ^ h (DfflfttifW 

Din TS A3 Long T V ') A f <09 4 AX D * h 

Dim rowOffset h vriBOSW 

Dim browsin? A* String iR£<9->3 y \C 7> Y<D$ < 7* 

Dim colorField As String £ j&Ef £7 * -JH* {9 i 7*35SKfc&*>^S ) 

Const MAXDISPLAY - 6 P — X'f ? "/O^BISt 

Dim MAX ITEM As Integer £ y * h SJHBB 
Dim KAXIjOC As integer a -if— £(4te£<58St 

Dim whichrltemi MAXDISPLAY) Ac Integer rItens(±jfBft£jn£<fe 5 , 

u*-*fc<fctf*WA*<91MX£E;£: | 
Const GAP » 10 UX b££> | 
Const EXTRA = 70 Stf)l9&ffl0>&C9/V- A j 
Const rpducedEXTRA - 20 to^A-&%.l~Xtt Z &®<n&&®£Llb®)\<—l> j 
Const T = 50 i£'>?a^UXh i 

Const H = 1000 - 2 - T 
Const iocL - 30 &/i\X-')7 
Const locW - iCO 
Const diapL « locW ♦ 2 * IocL 
Const dispW - 1000 - diapL - IocL 

i 
I 



f 
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<$=— x • v^Isb y Y 
Dim allData As snapshot 
Dim itemData As snaptihot 
Dim score Data As snapshot 
Dim deptData As snapshot 
Dim stuff Data As snapshot 
Dim fllterData As snapshot 

Dim marker (10OO> As String ^KUmiSPLAYlSS^ fc<07* 0^-0 
Dim loeStartdOOOi *rltem index for start of locator 

Sub ApplyFilter <> 

Din sortscrlng As String 

If Me Is TVlist Then 

CAptionPielct - 'Title* 

sortString » " 

colorField - 'Type* 
Else If Me Is HOVliet Then 

If sameViev Then 

Else 

LoedData 

allData. Filter - vievFilter 
Sab allData » allData .CroafceSnapshot ( ) 
End If 

captionField e 'Title - 
sortstring = "Title" 
colorField « "Type' 
El self Me Is SHOPlist Then 

^htSJJ?t5M€tfT. tit? *) 54 Hr-fc 
select Case filters icurrDoroain) 
Case "store" j 

browsing = "store" ] 

Set allData » storeData 

captionField » "nan*e* 

filters (cvirxDomain) * *" 

eoxtString - -name* 

colorField - i 
Case "dept* i 
browsing • "dept* j 
deptData. FindFirst "name ■ *" & vserString fc I 
userString = ■■ 'fix— this ia cheating, tiserStringtiffiJUT^* T <C^\ 
If deptData .NoMatch Then i 
Set allData = deptData j 
£i Iters (currDomain) = *■ j 

Else 

browsing a "stuff 

filters (currDomain) * " I dept codej « * 4 deptData ("code ■ I 
sec allData = stuff Data 
End If 1 
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captionfield e »nam» - 
eortString e "name - 
colorField = 

Case "itein' j 
browsing - "item" j 
Set allData « itemData | 
captionField = "name" j 
colorField m " ! 
filters IcurrDomain) = 'name liKe »■ & userString t -" , " 
sortstrlng = "name' 

Case Else 

browsing - 'stuff 
captionField « ■name - 

sortStxing * -name - ; 
colorField ■ "[item code] • j 
Set allData = stuffData 
End 5«l«ct 

End If J 
allData. Filter - f iltera tcurrDomain) 

If filter© (currDcroain) - Then ' 
allData.FindFirst 'Not ■ fc captionField fit - * * * ' 

Else 

allData.FindFirst allData. Filter 
End If ! 
If allData. NoMatch Then 

KAXITEM «= 0 

Else 

max item = i *c*n#OT*i*£fc*w^MSfctt-a:tfj£-fe* h 

Set filterData = allData .CreateSnapshotO ; 
filterOata.Sort = sortString ! 
Set filterData = filterData. CreateSnapshot () 
End If 
End Sub 



Sub BlinkS tart <C As Control, vis) 
Set BlinkControl = C 
BlinkControl. Viaible a vis 
tmr Blink. Enabled « True 

End Sub 

Sub BlinkS top (vis) 

tmrB link. Enabled - Falsa 

If BlinkControl la Nothing Then 

Else 

BlinkControl. Visible • True 
End If 

Set BlinkControl » Nothing 
End Sub 

Sub ChongeLoc (direct As String) 
Select Case direct 
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Cat* 'Up* 

If locSelected > 1 Then 

locSelected - locSelected - 1 
RtdoDieplay 
End If 
Caco "Down" 

It lecSelocted < KAJCLOC Then 1 
locSelected * locSelected + 1 
RedoDispl&y 
End If 
End. Select 
End Sub 

Sub Changes el (direct As Strinfl) 
Select Case direct 

case *Op % ! 
If itemSelected > 1 Then 

itenSeltcted * iteaSolected - 1 
selector. Top « iteaBox (itemSelected) .Top - GAJ? 
rIten(0).Top a rltem(vtiichrltes)(it«ms«lected) J .Top 
r3ten(0) .Left '* locL - GAP 
rltetttO) .Width • locW ♦ 2 * OAP 
Setltenlnfo 
Blcelf locSclected >■ 1 Then 

itemSelected «= KAXDISPIAY 

locSclected - 1 Deselected - 1 j 
RedoDisplay 
End If 
Case "Down" 

If itemSelected < MAXDI SPLAY Then 

If (locSelected - 1) * MAXDI SPLAY ♦ itemSelected < HAXITEW Then 
itemSelected o itejnSeleceod * 1 I 
selector. Top * itcmBoxl itemSelected} .Top - GAP j 
rItem(0),Top » rltemtvhlchrltetM ItemSelected) ) .Top 
rltem(O) .LeSc o locL - GAP j 
rlteratO) .Width » UcW *■ 2 • GAP | 
Setlteralnfo 

End Xf 

ElaeTf locSelected < KAXLOC Then 

itemSelected ■ 1 

locSelected * locSelected ♦ L 

RedoDi «pl*y j 

End l£ I 

End Select ! 

rltealO) .Visible = True j 

Cnd sub ! 

Sub DoPreview () 
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49 

Dim i As Integer 'counter 
inPreview - True 



50 

t 



locator .visible - False 

selector .Visible « Falae 

For i - 1 To HAXHISPIAY 

itera£ox<i) .Visible • False 
leftArrow(i) .visible = Faleo 
rightJvrxowU) .Visible = False 

Next i 

previeWWin. Caption - -Cutting praviaw. 
previeWWin . ZOrdex 
previeWWin.Visible « Trua 



showFreview 
End Sub 

Sub DoSelect () 

If Me Is TVlist Then 

userStetion ■ filfcerData( -Station" ) 
uaerStart - filterOatet •Start* I 
rotumCode - TO TV 
Mo. Hi do 
Elsolf Me Is MOVlist Thsn 

sameFilter = True 

TellUaer "You would b# aikea to eonfirn your order or 
filterDataCTitla*) 

Elself Me is SHOPllst Th»n 
Select Case browsing 
Case "stuff" 

sameFilcer ■ True j 
TellUser *You would be asked to confirm your order of 
CilterData( "name* J 

Case "store" 

filters (currDortainl = Mstore code) 
Form^ctivate 

Cose "item- 
filter 8 ( c urrDoma in ) 
Form_Xctivate 

Case *dspt" 

f titer »<curr Domain) = " (dept code] 
FomLActivat© 

End Sal set 
End If 
End Sub 



£ filterDatat "code"! 



- Miteni code J - * a f ilterDatat-code" ) 

I 
I 

& filterDatat "code') 
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Sub EndPreview 0 

Oiio i As Integer 'counter 

previewtfin. Visible = Falee 
inPreviev » False 
locator. Visible a True 
selector .Visible = True 
previeVWin.Top = displayUst.Top 
RcfloDi splay 
End Sub 

sub FornL^ctivate O 

Dim i As integer 'counter 

Dim section A3 intwer d^t-< ?4>u$r-i/ 3>K**J9> h 
Dim NVisible As Integer ^ ^ 3 >f*jcQ*JgUf£tfcfc3ii$a (f&&) 
Dim nog As String 
Static saveFilter As String 
Static aaveVierv* Aa String 

%L&<0?J frP£ftL-Z to 1 ******* . % 

If Not sameView Then etuneViev - {aeveViev « viewFilter) 

^^m.r^ ^Filter - UeveFilter - filter, (eur^in) ) 
cavcFilter = filters {currbDiaain) 

SQtStatus eurrView(eurrDo*ainJ fc currFilter (currDo^in) . greyCOIX* 
If sameFilter And aameViev Than I 

If newUsar And Not Me I* SHOPlist Then . 

popup-Caption - 'To change the category .hewn. Pms th. Category 



button. 



Else 



popup. Visible o True 

newUser = False 
end If 
RedoDi splay 

e 

Setlnfo 'Selecting data, please wait. 

If MAX ITEM - 0 Thea 

previewwin. Caption - " 
previewwin. Visible - False 

End If 
Do Events 

IE inPreview Then EndPreview 

For i - 1 To KAXDrSPIAY 

itemBoxlil .Caption = "* 
Next i 



GREY 



For i • 1 TO MAXtTEH 

Unload rltea(i) 
Next 1 



I 
I 

t 
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ApplyFilter 

II WOt 17 EM - 0 Than ■ 
•give "no matches* m£9 j 
locator .Visible ■ Kalee 

rltew(O) .Visible » False j 
For i o 1 To MAXDISPLAY | 

MAXITEM e 0 j 

iteniBojcti) .Visible = False 1 

laftArrow(i) .Visible a False 

riffhtArrow(i) .Visible « False 
Next 1 

previewWin. Caption ■ •No notches were found* * Chr(13l 

previewWin. Caption « previewWin. Caption & -Press 'Category* to change 

the selection. " 

previewWin. ZOrder j 

previewWin. Visible = True ; 
itemSelected » 0 

locSelected = 0 ■ 

Else ! 

filterDota.KoveLait 

MAXITEM - filterDato.RecDrdCount 

rowOffset - (H - rlttm(0> .Height ) / KAXITEK 

If rowOffeot > rltcm(O) .Height * GAP Then rowOffset - rl t em (0) .Height ♦ 
GAP 'max distance 

rltcm<0) .Visible ■ False 
rltem(O) .Top « T 

rltem(O) .Left ■ loet. ♦ reducedEXTRA 
rltem(O) .Width = locW - 2 • reducedKXTRA 
rltem(O) .BackColor « itemCOLOR 
til terData . MoveFi rs t 

section = 0 'number of locator locations 

NVlsible - MAXDISPLAY • so first section will be marked correctly 

For i = 1 TO MAX ITEM 

Load rltem{if , 
If colorField <> Then ! 

rltam(i) .BackCoior = Color (Volt filterData (colorField) ) Hod 9) 
End If 

NVisible - NVisihle ♦ 1 
rltomUi.Top • T + I i - 1 ) • rowOffset 
If NVi.Bi.bW > MAXDI SPLAY Thon 

spcelon s taction * 1 
locStart (section) » i 
marktrtaectionl » filter Data .Bookmark 
NVioible • 1 
End If 

If Ke Is TVlist Then 



i 
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If mterDataCStertTS') < T3 Then • 

rltcm(i) .Left - rltem( i) . Lef t - reducedEXTRA 
rltero(i) .Width » rltem(i) .Width ♦ reducedEXTRA 

End If | 

If f UterDrtta(-FinishTS*) > TS Then J 

rlteai( i) -Width * rlteml i J .Width * roducodEXTRA 

End If 
End If 

r Item I i ) . ZOrder 

rlteraU) .Visible = Truo j 
f il t ArO&tm . KoveNext 
Next i 

KAXLOC - section 

locStart (section ♦ 1) • MAXITEH ♦ 1 



rinse lectorO&& fc-fe v h 
rltfan(O) .Left ■ locL - GAP 
rltem<0) .Width « locW + 2 • 



(use rXtem(O) ) 



GAP 



itemSelected = 1 
locSeleeted * 1 
locator. Visible « True 
rltem(O) .BackColor « highlightCOLOR 
itcnBoxc3WO§Byi€r-t at h 
RodoDi splay 
End If 



End If 
End Sub 



Sub Fom_XeyDovn (KeyCode As Integer, ShifC As Integer) 
popup .Visible - False 
Select Case KeyCode 
Case Asc { 'Q' ) 

End 
Case B_BACK 

If Me Is SHOPlist And browsing * •item" Then 

returnCode • ALPHA 
He. Hide 

Klce 

returnCode - BACK 
Me. Hide 
End If 
Case B_HELP 

InvokeKelp 
Case B_PHEVIEW 

I£ inPreview Then 
EndPreview 

Else 

DoPreview 
End If 
Case B_SELECT 

IE MAX ITEM > 0 Then DoSelect 



40 



I 



50 



(30) 



&§3¥8- 2 9 2 8 6 6 



57 



5fl 



0 Then ChangeSel CUp*) 
0 Then ChangeSel ('Down") 



! 



I 



display List .Height 



I 



Case B_UP 

If MAX ITEM 
Caea B_DCWN 

If MAXITEH 
Cane B_RIGHT 

If Me Is TVlist Then 

retumCode = COWrKG 
Me. Hide 
End If 
Case B.LEFT 
Case B — PAGEUP 

If inPreview Then 

If previewWin.Top < dieplayLict.Top Then 

previcvWin.Top - prcviewWin.Top 4 
end If 

Else 

If MAXITEM > 0 Then ChangeLoc <*Up") 
End If 
Case B — PAGEDOWN 

If inPreview Then j 

If previewYfin.Top ♦ previewWin. Height > dieplayList-Top ♦ 
display List. Height Then j 

previewWin .Top = previewWin. Top - dieplayLict. Height 
End If 

If MAXITEM > 0 Then ChangeU>c ('Down') 
End If j 
Case B_FILTER j 
If Mot Me la SHCPlist Then ; 
returnCode = Filter I 
Me. Hide j 
End If : 
Case B^O • 
retumCode = SHORTCUT j 
Me. Hide 
End Select 
End Sub 



Sub Fornv_Load ( > 

Dint i Ac Integer 
Dim itemRoom 



counter 



1,9 -H*V7* 

itemBoxiO) -FontSize - largeFONT 
leftArrov(O) .FontSize - largeFONT 
rightArrow(O) .FontSize - largeFONT 
If displayMode ■ - PC" Then 

popup . FontSize = largeFONT 
previewWin. FontSi2e = largeFONT 

else 
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previeWtf in. Font Size » tB*di\orFONT 
popup. Font Size c fcraallFCSTT 
End If 

rltemtO) .BackColor * iteirCCLOR 
selector.FillColor ■ highlightCQLOR 

displayLi*t .FillColor = backgroundCOtOR : 
proviowWin .BackColor ■ backgroundCOLOR 

locator .FillColor = backgroundCOLOR j 
Icebox 1 0 1 .BackColor = iteicCOLOR | 
leftArrow(O) .BackColor - itenCOLOR | 
rightArrov(O) .BackColor = itenCOLOR I 
shpsiot .BorderColor = slotCOLOR ! 

SizeAForni H«. DispTop, DispHeigbt, DispLeft, DispWidtfc 

Ke. Scale {0, OJ-UOOO, 1000) i 

SizeAControl locator, T - GAP. H + GAP. locL - GAP. locW * 2 * GAS 

SizeAControl shpsiot, T# K, loCL ♦ reducedEXTRA, locW - 2 • reducedEXTRA 

SizeAControl displayList, T - GAP* H ♦ GAP, di*pL. diapW i 

SizeAControl popup. di«pW / 2, 4 • locW. dispW / 2, 4 • loctf 

CPloce 1* previevWin, displayList 

locator. Z0rd«r J 
shpSlot .ZOrdcr j 
rltem<0) . ZOrd cr ; 
itemRoow =» K / KAXDISPLAY 

SizeAControl itamBox(O), T + (.5 * GAPJ , itemRoom - GAP. diipi ■» EXTRA, disp» - 
2 • EXTRA ! 

SizeAControl patch (0). 50. (6.8 * iteaBox (0) .Height ) , (12.3 • iteniBox (0) -Width) . 
(7 * itamBox(O) .Height) 1 

If displayMode « *TV" Than j 
patch(O) .Left = 8. OB * itesiBox(O) .Width | 
patch (0) .Height ■ 3.7 • itemBoxtO) .Height 

End If ; 

SizeAControl lef tArrow(O) . T ♦ 1.5 * GAP). itemRoom - GAP. dispL, | extra 

SizeAControl rightArrow(0K T ♦ 1.5 * GAP). itereRooni - CAP, diepLj* dispW - 
EXTRA. EXTRA i 

SizeAControl selector, T, itemRoora ♦ GAP. dispL, dispW | 

selector .ZOrder 

For i = 1 TO KAXDI SPLAY 

'Load itemDox(l) 'Now created at design time—fixed number (6) 

itamBox(i) .Visible = False 

CCopy lt*mB©x<01. itemBoxli) ! 

ptttchii) .Visible - False 

CP lace 0, pateh(i), potchfO) 

itomBox(i) .Top - iteirvBox (0) -Top ♦ (i - 1) • itejtfiocro 
Load leftArrowli) ; 
leftAx-row(i) .Top e iteraBox U ) -Top i 
Load rightArrcw(i) 
rightArrov(l) -Top ■ itemfiox(i) .Top 
Next i 

BameFilccr ■ False 
sameview - False 
LoadDaca 
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Fonn^ctivate 
sameFilter « True 
End Sub 

Function ItemStrinQ O As Striny 
Dim msg As String 

If Mr is TViist Then 

msg = Fonr.at I fil terData t "Title " ) ) • on 

msg » msg 4 stationStringlfilterData( 'Station" ) ) fc • f 

msg * msg 4 TimeString ( filterData ( "Start - ) ) I • to " 

msg - insg k TimeString I filterData ( 'Finish' > J ! 
El self Me la MOVlist Then 

meg « Format ( filterData< "Title') J ; 

rosg • msg k * t ' * Format (£11 terData ( "Year* ) ) 
El self Me la SHOPliat Then j 

Select Case browsing 

Case "3tuff I 

nag - Format (fil terData (-name*) J * ■ - $" & Format ( til terData t •price' ) ) 
End Select j 
End If i 
ItemString - msg , 
End Function ! 

Sub LoadData ■ ( > j 

Dim refSnap As cnapehot ; 
Dim rc£Dat« 

If Me IS TVliat Then I 

startTime = fakeToday ♦ fakeTime j 

Sec VB ■ QpenDatabase (TVDB) j 

Set reCSnap - PB.CreateSnepshot I 'Reference' ) ! 

refSnap.FindFirst "Kame ■ 'Date'" ! 

refDate ■ DaceValue{ref Snap ( "Data* | | i 

Set allData = DB.CreateSnapshot ( 'Programs' ) ! 

TS ° (startTime - refDate) * 48 j 

allData. Filter « Overlap (TS» TSI ( 

Set allData - allData .CreateSnapshot I ) 
Elself Ma Is MOVlist Then j 

Set Da • OponDatobasefMVDB) I 

Sat allData = DB.CreateSnapshot ( 'Movies* ) j 
EI self Me Ic SHDPlist Then I 

Set DB - OpenDatab»se(£?DB| ! 

Set itemData ■ DB.CreataSnapshoti "Items" > 

Set storeData c DB.CreateSnapchot I "Stores" > . 
Sec deptData ■ DB.CraataSnapthot < 'Departments" ) 
Set BtuftData =. DB.CreateSnap«hot ( "Stuff* 
End IE 
End Sub 

Sub RedoDisplay <1 
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i 
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* reposition locator and selector, update info box 



64 



Dim last As Integer 
Dim i A3 Integer 
Dim Index A6 Integer 



* index of rlteni 



If MAX I TEN - 0 Then Exit Sub 
■ft -<0 #B O r - 9 > * Stff 

f ilter Data. Bookmark - marker (locSelected) 

Index = locStart (locSelected) 
For i ■ 1 To MAXDISPLAY 

If filtcrData.EOF Then 
'hid* en$>ty itemBox 
itcwBoxU) .Caption - 
itemBoxU) .Visible = Falce 
leftArrow(i) -Visible * False 
rightArrow(i) .Visible » False 
Els ft 

whichrltem(i) » Index 'so we can highlight the correct r I tern (reduced 

item) 

If colorField <> - " Then iteioBox( i) .BackColor * • 
Color (filterOata<colorrield) Hod 9) 

itemBox(i) .Caption f UterData(captionField) 
I£ Not inPreview Then iteitiBoxti) .Visible = True 
If Ks Is TVlist And Not InPreview Then ! 
•show arrows to reflect program length ! 
If CilterDatarStartTS') < TS Then j 
leftArrowU) .BackColor = iteir3ox(l) .BackColor ; 
leEtArrow(H .Visible - True j 

Else 

leftArrowti] .Visible - False | 
End If i 
r£ fllterDatat 'FiniohTS') > TS Then . 
rightAxrow(i) .BackColor - itemeox I i) .BackColor | 
rightArrow(i) .Visible - True i 

Else 

rightArrowli) . Visible « False 
End If 

•show color patch for subcategory j 
paich(i) .FillColor « Color lfi!t«rData< "Category") Mod 9) 
patchiiJ ,Vi6ible = True I 
End if | 
last ■ i '• 
Index ■ index + 1 i 
£ ilterData.KoveNext j 
End If 
Next i 

II itemSelected * last Then [ 
itemSolected • l«t ! 
End If ! 
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displayl-ist. Height - H ♦ 2 * GAP - IH / MAXDISPLAY * (HAXDISPtAY ; lost)) 
'display lice shrinks when fower than MAXD1 SPLAY items displayed 

s«lttctor.Top » i temBox( itemSelected) .Top - GAP 'behind current itenBox 
locator. Top = T * rovOffset • ( locStart UocSeiected) - 1) ; 
locator. Height » l*»t • rowOffaet + rltere(O) -Height - roOffset 'height shrinks 
when uicplayLicr. shrinks j 
rlt»m(0| .Top = r ItemlwhichrlteiM it ©Selected) ) -Top ^ 
Sotrtemlnfo I 
End Sub 

Sub Setlterolnfo U _ 

taawt y $ -x n $> &£®jh u ©hi ta * 

Oini i As Integer of records away from bookmark we need to go 
Dim nsg Aa String 

filterData. Bookmark - marker I locSelec ted) 
i 9 itenSelected 
While ti > 1) 

xilterDota.KoveNext ! 

i = i - i ! 

Wend 

Setlnfo JtercString () , (itemBoxUtemSelected) . BackColcr) 

If in Preview Then ShowPreview i 

End Sub j 



Suh ShowPreview ( ) j 

' of the item selected j 

Dim nag A3 String 

If Me Ifi MOVlist Then 

msg » filterData t* Plot •) 

Elsell Me Is TVlist Then 

msg = filterData (captionField) a Chr(lJ) 
meg = msg a StationStringif ilterDatal 'Station- ) j & ChrU3) 
msg = rosg & CategoryString( (filterData 1'Type ')) . < filterData ("Cat agcry") ) ) 



Else 

msg 
mag 
meg 
End If 

praviowWin. Viaible • Fal9e 
pr ova ewwin . Caption * msg 
CPlace 0, proviewWin 
previevWin. Viaible ■ Truo 
End Sub 



"ThiB would be a video, still, or textual preview of 
msg & £ileerData<captionFieid) 
msg k - * • 



dieplayLiet 
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Sub tmrBlink_Timer (I 

BUnkcontrol. visible o Not BliakControl .viaible 
End Sub 
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....... / ^Hr-i;7*-i3- ^" DC = 

Option Explicit 

Const GAP - 500 

Sub Form_ActivatG () 

t*xtArea. Caption - uberMag 
Cnd Sub 

Sub Form_K*yDown (KoyCodo Ab Integer, fihlft A« Integer) 
Sol *ct case KayCode 
Case El so 

rftturnCode » K«yCod« 
Me. Hide 
Sftd Select 
End Sub 

Sub Forn^-Load () 

Me.BackColor » itemCOLOR i 
text Area. Backcolor = itemCOLOR t 
textArea. Fonts ize * large FONT 

SireAForro Me, Di&pTop, DiopHeight. DispLeft, DispWldth 

Si«8AControl text Are a, OA? , DiapHeight - 3 * GA?. GAP, DiEpWidth - 2 • GAP 

mmtt i 

text Area. Caption « ■• j 
End Sub 20 ! 
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Option Explicit 

Dim BlinkControl As Control f9?&T63£tJ8£fci*"3>1^ 

Dim parent As Integ«r SK^J — K0)fiE j 
Dim current As Integer Vk&Oi}— j 

^ _ i 

it: *-Krt©7^^*-I e flD»ffl!)€S«S*tttjE!»*^*^'tft6 . 
dataf ile changes 

Const filterCABD » 1 T V .M " a- • j 

Const mfilterCARD - 66 ^-^7^^>^- 

Cons t homeCARD -96 — .t — 

Dim laotCard As Integer -7 ^ f*Jtl£i 6lB|C9iSfl5^— 

Const MAX TITLE = 3 M : J^mEtr*^* jCftWLoad&^ic»<03- HtCftl* 6*ftt^R tT* 

LoadGraphica j 

const CARDSHIFT = 2.5 *- H*m*fctt«60-*- HftttfcJ3»«<fcft j 

const MAXROWS = 3 K^^WfcftCti^— sft^ >ffltt©Mffl© 

Const KAXCOLS = 3 i7-K£*CD£«)Ofc© ••-#-r*±0#*>0lfc0>W>a 
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Const WAX CARD = 9 7, 9 "J ->±lC^$n^ 3*7" r'Ofi*® 
Const MAXXTEM = 9 £-t<i:©#$> >Of&}Z& 

Const actCOMING - 2 | 
Const aetNOW = 3 ; 
Const actNEXT = S j 
Const act ALPHAS HOP =6 

Const actFILTER = 7 ! 

Const ACtALPHATV = 8 

Const actALPHAMOV « 9 

Const actDOM&IN = 10 

Const act LATER « 11 

Const Act WEEK - 12 

Const ectWKEND • 13 j 
Const actSCHED - 14 | 
Const ohortTWIEW * 30 ; 
Const shortMWIEW =31 ! 
Const shortSPVIEW = 32 

Const shortTVNOW =35 ! 
Consc shortTVFAV = 36 
Const shortMVFAV * 37 
Const shortSPFAV t= 38 
Const actMOVIE » 40 
Const actSTORS * 50 
Const actDEPT » 52 
Const actMORE » 60 
Const ectNONE - 65 j 
* f or devalopment only j 
Const actKEYS - 71 \ 
Const act TABS = 72 

Sub Animate (direct As String, cardNo As integer) 

Dira index As Integer 
Dim depth As integer 

DoEvcnts 'do not interrupt another animation j 
depth ■ Cards (current) . level | 
Select Case direct j 
Case •Back' 

If cards (currant) .parent * 0 Then 
CCopy sspCardf depth ) * oepCont 
sspCont. Visible ■ True 

Zoom 10. sspCont. sspl tem (Cards (current ). self ) 
DisplayCard (Cards (current) .parent ) 
sapCont .Visible - False | 
End Tf 



Case 'Next" 

index = cards (current) .selected 
If index > 0 Then 

CCopy sspIterM index) , sspCont 
sspCont .Visible ■ True 
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sspCont .BackColor ° sspCardtOl .BackColor 

Zoom 10. sspCont, sspCard (depth) 

DisplayCard cardflo 

sspcont .visible - Fal9e 
End It 
Case "Select* 

index * Cards (current) .selected 

It index > 0 Then ! 
CCopy s spit era I index ) . sspCont } 
sspcont .visible = True j 
sspCont .HackCol or ■ sspCardtO) .BackColor \ 
sizeAControl BCpCardtO) , 0. 500. 0. 500 'site of whole torn 
zoom 10, sspCont. sspcard(O) 
End If 
and Select 
End Sub 

Sub BlinkStart (C As Control, vis) ! 

Set BlinkControl - C ! 
BlinkControl. Vieible * via 
tmrBlink. EnAbl»d o Truo 
End Sub 

Sub BlinkStop Ivis) 

tmr Blink. Enabled = False 

If BlinkControl Is Nothing Then 

Else 

BlinkControl. Visible » vis 
End If 

Set BlinkControl - Nothing 
End Sub 

Sub ButtonAction U 

Dim button As Integer 
Dim cordKo As Integer 
Pirn r«g As String' 

button - Cards (current ). selected 'item number c£ selected button on parent card 
cardNo a Cards (currentl . it«m(button) 'card number of selected button 
IE button < 1 Than Exit Sub t 

Select Case Cards ( cardWo | .actionCoda 

Case actNONE ; 

SetlnEo ■dCy^^^HXit^HJIJ-C-Sf'iVv'grcyCOLCR 
Case actNEXT 

Animate 'Next", Cards (current ). i ten (button) ; 
Cose actDOKAlN ! 

a®*- y ten < mz&&<D h > < > \ 
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currDamain a Val(Cards(card5Jo) .actionData) 
SetStatus Cards (cardNo) .name, greyCOLOR 
Animate "Next*. Cards (current ). item (button) 
Case ectKORE 

RU Y y K'syi-Q&ftZT&tRZ^T (currently same as act NEXT) 

Animate "Next", Cards (current ). item(button) | 
Case actCOMIKG 1 

Animate "Select', 0 j 
sameFilter = Falee 
Set vi ews < cur r Domain) • frroComing 
retumCgde - SHOWVirw 
Me. Hide 
Cose actNOW 

currView(currDoroain) « 'TV 6:30pro : ' B%t>fr\ZZft&'&&p 

Animate ■ Select 0 
saneFilter = False 
sane View = True 

Set views (currDcxasin) • liatFrmfcurr Domain I 
retumCode - SHOWVIEW 
Me . Hide 
Case act LATER 

& H T V T ff t>tl S 4) © tffiT 

'currently non- functional 

•Animate 'Select*. 0 

•sameFilter = False 

'Set views (cur rDosna in) •= frmFriday 

retuxnCode = SHOWVIEW 

Me. Hide j 
Case actWEEK. _ 

Animate "Select". 0 

sanveFilter = False 

Set views (cur rDoitain) = frraWfcday 

recumCode * SHOWVIEW ; 
He . Hide j 
Case actWKEND 

'currently non -functional 

•Animate "Select* , 0 

• sameFilter ■ False 

'Set views (currDomain) - fmWkend 

returnCode - SHOWVIEW 

Me. Hide 

Case oCtSCHED i 

•currently non- functional . 

'Animate "select". 0 | 

•sameFilter = False I 
'Set views I cur rDoma in) = frmSched 

returnCode « SHOWVIEW ' 
Me. Hide 
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Case actALPHASHOP 

H:; Zfttt***<#«K:*U*£*$ 

Animate 'Splccf, 0 

SetStatus "Shopping, ■ & Cards {car dN©> .name, greyCOLOR 
msg - Cards (cardNo) . actionData | 
Setlnfo rasg, YELLOW 
Waic frnvAlpha 

If returnCode <> BACK And user St ring <> Then 

sansFilter = False 

filters (currDomain) - 'item' 

Set view© (curr Domain) » listFnn(currDomain) 

returnCode - SHOWVIEW 

Me. Hide 
End If 
Case actALPHATV 

Animate "Select*. 0 

SetStatus 'TV. " fc Cards <eardNo) .name, greyCOLOR 
returnCode a PICK 
Ms. Hide 
Case actALPHAMOV 

*fcbactAIPinv-cij?>} 
'Animate 'Select', 0 
Case act FILTER 

T V e jl -'vJJr U> 7 < A'* * 

f ilters(curtDoniain) « Cards tcardKo J .act ionData 
currFilter<currDomain) » Cards (eardNol . infotaxt 
sameFilter « False 
sameVievr o True 
returnCode » SHOWVIEW 
Me. Hide 
Cane actKOVIE 

Animate "Select", 0 
If current > hcroeCARD Then 

currView(currDomaln) » Cards teardKo) . info text 
viewFilter » Cards (car dKo) .act ionData 
same View = False 
sameFilter = False 

Else 

cur r F il teri cur r Domain) - V " & Carda (eardtfo) .infotext 
filters I cur r Domain) - Cards (eardNo ) .act ionData 
aameView - True , 
sameFilter - False j 

End If ! 

Set views (cur rDcroain) « 11 st Frm ( cur r Domain) , 

returnCode » SHOWVIEW 

He. Hide 
Case accSTORE 
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Animate •Select", 0 
Set Info 'Choose a storo:'. TURQUOISE 
Set Status 'Shopping', greyCOLOR 
saneFilter => False 
filters tcurrDomain) o 
Set views (currDomainJ 
returnCode • SHOWIEW 
Me. Hide 
Case actPEPT 

Animate 'Select*. 0 

SetStatus "Shopping, ' & Cards (cardNo) . info text . greyCOLOR 
sameFilter = False 
filters (currooroa in I - "depf 
user St ring ■ Cards (cardNo) .name 
Set vi«ws < cur r Domain) = listFrrotcurrDcmain) 
retumCodt » SHOWVIBW 
He. Hide 
Coae shortTWIEW 

Animate -Select", 0 
crurr Domain • TV 

If views (currDomxin) Is Nothing Then 

Set views ( cur rDoroain) • frmCominff 
End If 

eamaFilter = True 
retumCooe ° SKOWVTEW 
Me. Hide 
Cas« shortMWTEW _ 

Animate "Select* . 0 
curr Domain = MOVIE 

If views (currDowain) Is Kothina Then 

Set vieW3(currDomain) * HatFrmlcurrDcroain) 
End If 

sameFilter 3 True 
returnCade - SHOWVTEW 
Me. Hide 
Case BhortSPVIEW 

Animate -Select" , 0 
currOomain « SHOP 

If views (currDomoin) Is Nothing Then 

Sot viowe(currDomain) ° liatFnMeurrDcwoin) 
End If 

sameFilter = Trua 
returnCode * SHOWVIEW 
He .Hide 

Case shertTVNOW _ 

currFiitertcurrDomalnJ =■ 'All Categories" 
currVlew(currDomain) ■ "TV 6:10pm : - 'obviously 
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this would be the current 



time 



Animate -Select", 0 
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currDcmain « TV • | 
filters (currDomain) ■ ! 
caroePilter a False 
same View « True 

Set views (currDomoin) = listFrmltur rDomain) 
rctumCode * SHOWVIB* 
Me. Hide 
Case actKEYS 

SetKeys Card* (cardNo) .act ionData 
SetStatu» Cards (cardNo> .infotext, itemCOLOR 
current » hoaeCARD ; 
DiapiayCeurd current 
Case act TABS 

ToggleTabs 
Case Else 

Msg Box "Bad action code for card * £ Cards (cardNo) ; name 
Stop 
End 
End Select 
Cnd Sub 

Sub Change Sel (direct As String) 
Dim n As Integer 

Dim last As Integer. Sel As Integer 
n = Cards (current) .Nit ems 
last » Cards (current) .selected 
If last a 0 Then Exit Sub 

If direct » • Right" Then 

If last ■ n Then 
Sel - 1 

Else 

Sel = last + 1 
End It 

Elself direct « "Left" Then 

If last = 1 Than 
Sel = n 

Else 

Sel = laet - 1 
End If 

Elself direct - 'Up* Then 

If last > KAXCOLS Then 

Sel « last - MAXCOLS , 

Else 

Sel o last I 
End if 

Elself direct * 'Down- Then 
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it last <= n - MAXCOLS Then 
Sal s last ♦ MAXCOLS 

Els© 

Sel = last 
End If 
Else 

MsgBox 'Bad Direction- 
End 
End tf 

Cardt (current) .selected • Sol j 
Updates el 
End Sub 

Sub DisplayCard (index) 

Dim depth As integer 'number of visible cards, 
Dim 1 As integer 'counter ; 

Dim ancestor As Integer 'card numbers ; 

current ■ index 

par«nt - Cards (current I .parent 

depth » Cards (current ). level i 

For i - MAXCARD To depth ♦ 1 Seep -1 

sspTltle(i) .visible « False 

sspcard(i) .Visible = False 
Next i 

fi? « 9 7* U < &'J rM&K© ■» fc - 

ancestor • current 
For i - depch - 1 To 1 Step -1 

ancestor » Cards (ancestor) .parent ! 

sspTitle(i) .Caption = Cards (ancestor) . name ! 

sspCard(i) .Visible = True 

sspTitle(i) .Visible = True 
Next i 

KS'hT 

SSpTitle (depth) .Caption = Cards (current ) .name 
sspCard (depth) .Vieibl« - True 
espTi tie (depth) .Visible = True 

aft©*- K-tt*** 
Pisployltema 
End Sub 

i 

Sub Displayltems 0 

Dim Area AS SSPanel 
Dira i As Integer 

Dim Dx. Dy, x, Y. w, h i 
Dira NItems As Integer 
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S3 ; 

Nltems e Cards (current ) .NItoms 

Set Are- = .wCTdlCrAHcur^nO-l-ell'thi. i» • pointer. n*t a copy 

Dr. - Area. Width • .9 / KAXCOLS 
Dy . Area. Height • .9 / MAXROWS 

w « Dx * .9 ! 
IE w > 30 Then w - 30 

IC h > 20 Then h - 20 

sspBllnXBG. Visible c False ' 
sspBlinXBG.ZOrder C fl3'\fc-5T»ff>< 

For i « 1 To Nltems 
Bspltem(i) .Width » w 

8 irc^c;r^r.,t».it«(iM. a ctionCod, - octNONE Then 

MpItomlil.BockColor - areyCOLOR 
El ° e eS pItcmti).BackColor - ite*tCOLOR ! 

If • * AC • Width + l(H - 1) Mod MAXCOIS) * -5) * Dx 

; : ™:SV.« • • ■ l * ' KAXC0LS1 * ••' * 07 

Conterltem espttemdl . x. * 
sspXtamU) .ZOrdor 0 
sspltem(i). Visible • Tru* 

Next i 

CPlace 2. sspBlinfcBG. sspltemlll 

For i = NIC ems * 1 TO KAXITEM 

S5pitem(i) .Visible - False 
Next l 
UpdateSel 
End Sub 

Sub FDi-m_Activate () 

espCont. Visible - False 
Select Case returnCode 

Che© BACK 4 
It currant < homeCARD Then current « lastCard 

DicplayCard current j 
UpdateSel 
Case SHORTCUT 

DispleyCard current 
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UpdateScL 
Case FILTER 

If current < homeCARD Then 
DisplayCard current 

Else 

lastCard =■ current 

Select Case currDomain j 
Case TV j 

Di6playCard filterCARD j 
Cac« MOVIE 

DisplayCard mfilterCARD 
Caee SHOP 

DisplayCard current 
End Select 
End IC 
updatesel 

Case COMING ; 

Cards (current) .selected = 2 < 
sameFilt«r = False 

Set views (currDomain) - frnComing ' 
returnCode - SHOWVIEW 
Me. Hide 

End Select ; 
End Sub 

Sub Form_KeyOown (KeyCode as Integer, shift As Integer ) 
Dim index As Integer 

Din n As Integer j 

Select Caee KeyCode j 
Case B_BACK ! 

Animate "Back", 0 
Case B_H£LP 

InvokeHelp 
Case B_PREVTEW 

userStation «= 1 

userStart = fakeTime 

retumCode = TOTV j 
Me. Hide 
Case B_S ELECT 

3 >£*T? j 

ButtonAction 
Case B_RIGHT 

ChengeSel ( •Right") 
Case B_LEFT 

ChangeSel ("Left") 
Case B_UP 

ChangeSel <"UD"> 
Case B__DOWN 

Changesel ('Down') | 
Case B.PAGEUP | 
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Case B PAGEDOWN 
Casa B_l 

If Cards ( current ) .NIterns > 0 Then 
Cards (current ) .selected = I 
UpdateSel 
ButtonAction 

End If 
Case B_2 

If Car dc (current) .NT tenia > 1 Then 
Cards (current) -selected - 2 
UpdateSel 
ButtonAction 

End If 
Case B__3 

If Cards (current) .NI terns > 2 Then 
Cards (current) .eel ected = 3 
updatesel 
ButtonAction 

End If 
Case B_C 

If Cards (current! .Kit ems > 3 Then 
Cards (current) .selected « 4, 
Updates el 
ButtonAction 

End If 
Case B_5 

If Cards (current) .Nl terns > 4 Tften 
Cards (current) .selected = 5 
UpdateSel 
ButtonAction 

End If 
Case B_6 

If Cards (current) .MItems > 5 Then 
Cards (current) .selected = 6 
UpdateSel 
ButtonAction 

End If 
Cane B_T 

If Cards (current) .Nit ems * 6 Then 
Cards (current) -selected = 7 
UpdateSel 
ButtonAction 

End If 
Case B_8 

If Carda (current) .Nl teres > 7 Then 
Cards (current) -selected « 8 
UpdateSel 
ButtonAction 
End If 
Case B_9 

If Cards (current) .NI terns > 8 Then 
Cards (current) -selected = 9 
UpdateSel 
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ButtcnAction 

End If 
CaBe B_0 

current - homeCARD 

DisployCard current 
Case Asc<"CT) 

End J 
End Select i 
End Sub j 

Sub Form_Load () i 

sspCard ( 0 ) . BackCol or - baekgroundCOLOR 
sspTitle(O) .BackColor ■ baekgroundCOLOR 
sspItem(O) .BacXColor • itetrCOtOR 
sspBlinkBG.BackColer « highlight COLOR 
sspItem(0)..FontSiie * mediumPONT 

sspcard(O) .Fontsize « mediumFONT ; 
sspTitle(O) .FontSiie ■ mediumFONT j 
Me .BackColor • formCOLOR j 

SizeAForm Me, dispTop. dispHeight, dispLeft, dispWidth 
Me. Scale (0, 0>-(100, X00) 

returnCode - BACK • 

PopulateCards 

LoadGraphics ; 

DisplayCard homeCARD j 
End Sub j 

Sub LoadGraphics () 

Dim i As integer 'counter 
Dim tabHeight 

For i « X To MAXITEM 

Load sspltemti) 
Next i : 

sspCard(O) .Top o sep3tom(0) .Height 

gspCard(0| .Height « 100 - CARDS HI FT - espCardt 0} .Top 
BGpCard(O) .Left • 2 * CARDSKIFT 
33 pCard(0) .Width - ICO - A * CARDSHIFT 
'shape prototype tab 
sspTitle(O) . AutoSize * False 

aapTitletO) .Width = ««pCard(0) .Width / MAXTITLE ♦ CARDSHIFT 

For 1=1 TO MAXCARD 
Load sepcardti) 

sspcardli) .Height ° S3pCard<i - 1). Height - CARDSHIFT 

i 
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SEpCardti) .Top 2 «fipCaxd(i - 1) .Top * CARDSHIFT 
sspCardti) . ZOrder 
Load espTitle(i) 

BspTitleti) .Top = sspCardU) .Top - i^pTi tie (0 ) .Height * 2 
Select Case (i Mod MAXTITLE) 

Case 1 

sspTitle(i) .Left » sspCardl i) . Lef t 
Case 2 

sspTitletU .Left = sspCardU) .Lett ♦ sspCardU) .Width / 2 - j 
scpTitleU) .Width / 2 ! 

CaS %spTicl»( D.Lett a sspCarddl.UCt ♦ sspCardli) .Width - sspTitleU) .width 

End Select 
sspTitle(i) .ZOrder 

Next i 
End Sub 

Sub PopulatcCarda () j 

©fi^ifrfcfcgjwtttfcfiatifc^o ! 
(fi&> , mtiztntm * 

Dim last As Integer, parent As Integer 

Dim selected As Integer ! 
Dim index As Integer. itemHo As Integer j 
Dim level, title, text, action 

Open CARDFILE For Input as tl ] 
index = 0 

Cards I index ) .nana - "roof | 
Cardotindex) .level - 0 
Cards (index) .NI terns * 0 
While Not EOF(l) 
last = index 

index a index •» 1 ; 
Input *1. level, selected, title, text, action j 
Cards (index) . level - level | 
Cards lindex) . selected = selected ! 
Cards I index) . name * title 
Cards lindex) .infotext = text 
Cards I index) .act ionCode * ection 
If action > actNZXT Then 
Input #1. action 

Cards (index) .act ionData ■ action 
End If 
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Cards ( index) .NIteiw - 0 KS&t-JnKM: 

If Cards ( index) .level » Cards (last) .level ♦ 1 Then J 

parent a last 
Elself Cards ( index 1 .level <= Cards I last) .level Thon 
SS'-fe Rolf ZTzm\Zrty9TV? 
Do While (Cards (index! .levul < Cards (lost) . level) . 

last = Cardfi( last) .parent 
Loop 

parent « Cardc (last ) .parent 
Else 7^A>A*£*5£nfc, T** h 7 7 *f ;Utt|H!j£^ 

MegBox "Bad level in text file.* 

Stop 

End 
End If 

Cards (index) .parent • parent 

icemNo « cards (parent) .NI tens + 1 
Cards (parent ) ,KI terns » iteniNo 
Cards (parent 1 . ite*t(itemNo) a index 
Cards (index) .self = iteroNo 
Wend 

Cards(O) .NIteras « 1 
Close fl 
End Sub 



Sub tmrBlinkJTimer I) 

BlialcControl. Visible » Kot Bl inkC on trol .Visible 
End Sub 

! 

Sub ToggleTabs () j 

Dim i As Integer 

Static offset 

If offset =3.5 Then 

offset = 2 
Else 

offcet = 3.5 
End If 

For i = 1 To 9 

sspTitle(i) .Top « sspCardti ) .Top - sspTitle (0 ) .Height > offset 
Next i ; 
End Sub j 

Sub Update Sel () 

it ui>tt»icffl*Bw*a < urn* 

Din i As integer 
Dim x, Y 
Dint s as SS Panel 
Dim text as String 
Dim color 

BlinkStop Falsa ! 
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i = Cards (current) .selected 
If i > 0 Then fafi>ifii8iR&tlZ> 

s«t s - 6B P itcm(i) SiXX*>£t$Tzmyf i 

x «- S.Left ♦ S. Width / 2 
Y b S.Top * S. Height / 2 
'put blinker behind button 

Center Item sspBlinkBC, x. Y ; 
* resume blinking j 
BlinXStart sspBlinkBC, True I 

text 1 - Card* (Cards (current) .item (Cards (current) -selected) ] j . infotext 
color - sspltex* (Cards (current) .eelected) .BackColor 
Setlnfo text, color 
End Sub 



i 



Sub Zoom <n As Integer. C As Control, Dest As Control) 
Dim i As integer, j As integer 

Dim dl, dv. at. dh i 
dl = (Dest. Deft - C.Leftl / n j 
dw *= (Dest. Width - C. Width) / n \ 
dc = (Dest. Top - C.Top) / n ! 
dh • (Dest. Height - C. Height) / n 

C.ZOrder j 
C.AutoSize * False 
For i » 1 TO n 

C.Move C.Lcft ♦ dl. C.Top ♦ dt, C.widch ♦ dw, c. Height ♦ dh 
C. Refresh 

Ne*t i 

End Sub i 
[0 0 3 6] t _ _ criPPTr?*— A3— K — ' 

ami****-* i 
2x- tt £ r nrtt«Mtt*^*o '<> * ^ n cas i > x ? v - ><d y a h rt © 

3— K(iA-K-«E>U* hftlTOftO^— ?t#Bt6fcttt$S(r.«iESiX5. 
Option Explicit 

Dim DB As database 'the full database | 

Din list (1000) As String 'the list of selection strings : 

i 
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Dim leaf U000) As Integer nthJHStfV-7<Dtt<&IE. ^flfcifl^ 
Dim lictEnd Ac Integer \)% r F*34)SH$<Dj6I53>& 
Dim currPrefix AG String ^TCStf ftfc£3= 

Dim initialList As Integer zQ t )XlWmUZ£tfr1&<DX¥*tt^®&*-^ 
Dim BlinkControl As Control J^&#T**7^ r. £ Mitt^fl^nTV^ZU 
Dim itemSelected As Integer 1 XpCHAXDISPIAY^ ? j 
Dim locSelected As Integer 1 *p£MAXC0C£T 

Dim rowoifset 2 o©^T6^$ix^JB0© ^ v 7IS<D£B I 



Dim allData As snapshot 
Dim filterData Ae snapshot 

Dim marker(lOO) Ae String %X)J2l&UrqiE<D7"J 

Dim locStarC(lOO) As Integer D>r-* — OB9^0rItea^ >T V 9 * 



• display parameters 

Const MAXDX SPLAY - 6 ? P-X"? v 7$ntJRB0ft 
Dim MAX I TEW A3 Integer hrt<D*5§Ott 
Dim waxloc As integer a^^^3>©!5 ! 
Din whichrltera(MAXDlSPLAY) As Integer ^rltOTtf^ZCOS^C**** 
Const GAP « 10 'space around lists i 
Const EXTRA 70 'room for longer programs 

Const reducedJEXTRA = 20 ^/>$nfeS^rt^ft«><0*)ffi©fcWO^-A j 

Const T = 50 

Const K * 1000 - 2 * T 

Const locL * 30 *ft'h£hfc<J;*V 

Const loeW =100 

Const dispL » locW + 2 • locL HrftV^h 
Const dispW = 1000 - dispL - locL 
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Sub Blinks tart (C As Control, vie) 
Set BlinkConcrol = C 
BlinkControl. visible « vis 
tmrBl ink. Enabled • True 

End Sub 
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Sub BlinkStop (vis) 

trarBl ink. Enabled = False 

If BlinkControl le Nothing Then 

Else 

BlinkControl. Visible = True 
End If 

Set BlinkControl - Nothing 
End Sub 



*do nothing 



Sub ChongeLoc (direct As String) 
p/r-* {z J: *) <%—V &«6 < * t> b < ttKt* 
Select Case direct 
Case "Up* 

If locSelected > 1 Then 

locSelected « locSelected 
BedoDiBplay 
End If 
Case. "Down* 
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If locSelectad < MAXLOC Then 

locSelected » locSelected ♦ 1 
HedoDicpley 
End If 
End Select 
End Sub 

Sub ChangeSel {direct As String) 

Select Case direct } 
Case "Up" 

If itexnSelecced > 1 Than 

itemSeleeted = it»raSal«eted - 1 

selector. Tod • ltenBoxtlt«mSel«cted) .Top - CAP 

rItem(0).Top • locator. Top ♦ rowQf£*«t * UtemSelected » 1) 

Elself locS alec ted > 1 The a j 

itenSelecced - KAXDI SPLAY j 
locSelected « locSelected. - 1 j 
RcdoDiaplay 

End If t 
Case *Do%m* 

If itettSclected < KAXDISPLA* Then 

If (locSelected - 1) • MAXDISPLAY ♦ itemSelected < HAXITDff Then 
iteaSelected » itemSelected + 1 I 

selector .Top - itemBox{itemSelected) .Top - GAP | 

rltem(O) .Top 3 locator. Top ♦ row0ff6et * (iteaiSelectea - 1) 
Setltcralnfo | 

End If 

Elself locSeleeted < KAXLOC Then 

itemSelected =1 
locSelected • locSeleeted ♦ 1 
RedoOi splay 
End If 
End Select 

End Sub | 

Sub DoSelect <> | 

Dim index As Integor j 

Dim count As Integer 

Dim i As Integer 

Dim nextChar As String 

Dim looking Ag Xnt*ger 'boolean 

Dim title As String 

index » locStart(locSelect»d) ♦ iteinSclected - 1 jg$R$ fv&ffSO'J * V ft® 
If leaf < index > Then ! 
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title ■ renioveAspereandtlist (index) ) 

filterData.FindFirct -SelectTitl fc titlo k I 

If f ilterData.NoMatch Then j 

Do 'prompt fcr different title until Eound ' 

^* tf> *\icl« « InputBoxt titlo ft ■ not found. Enter new title:", tit ID 
filterData.FindFirst -SelectTitle * V A title ft 
Loop Until Not filterData.Nortatch 
End If 

userStriny « filterDatot ■Fu^Title■ » , 
Set views (TV) = fnnWeek 
sameFllcer - False 
returnCcxie * SHDWVIEW 
Me.Hifle 

Else , 
<%t?V&Z oT i^a £ to— trefl 
ite»Box(itemSelected).BacJeColor * greyCQLOR 
Setlnfo "Loading data, please wait...". greyCOLOR 
DoEvents 

i * Len (Xiet ( index) ) 
currPrefix « 
If initialLiet Then 

currPrefix -. list! index 1 ; 
Else | 

If i v 2 Then currPrefix - Left 11 iet (index) , i - 2) 
currPrefix - currPrefix 4 Right (lie t (Index) . 1) i 
End If 

SetStatus TV Title* starting with • ft currPrefix. grcyCOLOR 
'construct new list 
If inltiaiLiat Then 

If index = 1 Then 

initialList « False 

EilterData. Filter o -SelectTitle < " A * • 
currPrefix a 

Else 

lis ttnd = 0 

For i * 1 To Len (currPrefix) , 

'strip out the letters (ignore coniras) to make a new list 
If Mid (currPrefix, i. 1) >« "A* Then 
lietEnd - list End ♦ 1 

liat(list£nd) - ft Mid < cur r Prefix, i, 1) 
leaf 4 i) • False 
End If 
Next i 

End If ! . 

Else 

m t ^tv 7 < * >? * -5 C5=-^ 7 -r »J v^t* * 

filterDaU. Filter » "SelectTitle like '* ft currPrefix ft •*•• 
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End If j 

It Wot inicialLlBt Then 

set filcerUata n f ilterData .Cr«aceSnap£>hot t | 
f i IterDaca .MovtFirac 
liatEiid - 0 

i&r i • AscC *) To Asel'ZM 'space. punctuation, and lottera 

counc = Or looctng t> True 
While Not f ilterData .EOF And looking 

nextcnar « nidi tilterDataCSeLectTitle" ) , LenlcurxPrefix) ♦ l. 

It nextChar = Ctar(i) Or nextQiar « LCase(Chr(l) ) Then 
count ■ count ♦ 1 
t t I to rDa t a . Hov«Next 

Else 

looking - raleo 
End If 

Select Caie count 
Cam 0 'jat-CttfiaAftV 
Case 1 iJ-7X>f'J-fe^<5 

f ilterData .Hove Previous 

listEnd * listEnd ♦ 1 

UatllistEnd) - f ixAi^ersandt If ilterDotaCSeleccritle' H ] 
leaf (li*t End) » True 
f ile»rD4ta .MoveKext 
Case Ele* / > H-7XV f M-£-3< 5 
f ilterData .Move Previous 
lietEnd = listEnd +1 

UsttlUtEncJ) = currfrcfix (. t chrli) #rfcfcchark:7'>5 r — >&5l < 

f ilterData.MovcNext | 

End 6»l»cc | 

Next i | 

If filter Data. RecordCount <= MAXDISPLAY Than ! 

listEnd * 0 
filttrData.KoveFirst 
While Not filterData.EOF 
lUtEnd » listEnd * I 

llfitdiBtEnd) = fixAmpersandlt£ilterData<'SelectTitl€M ) ) 
lea£ I listEnd) « Truo I 
C LlterData .MovcNext I 
Wend ; 
End It 
Eitd If 
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initialLifit = Fals* 
If UstEnd > 1 Then 
NevL j st 

locSelected = 1 ! 
iteroselected = l j 
Doselccc i 
and 11 ! 
End If 
End Sub 

Sub FomuActivate O 

NewList ; 
End Sub j 

Sub FcntuKeyDovm <KcyCodc Ao Integer. Shift A B Integer) j 
Select Cose ReyCodc { 
Caeo AscCQ") 
End 

Ca "a-^«»+C ft * W ^a«ttf^-^*t> k -E^el fro* . particular choice in 

returnCod* = BACK 
Me. Hide 

Case B-HELP \ 
InvokeHelp j 
Case B_PREVIEW j 
case B_SEX£CT 

DoSelecc 
Case B__UP 

ChangeSei ("Up") 
Case B_DOWN 

Change3«l (*Down'» 
Case B.RIGHT 
Case B_LEFT 
Case B_PAGEUP 

Chang«U>c I "Up") 1 
Case B_PAGEDCWtJ i 

ChangeLoc CDown # > j 
Case B^FILTER ! 
Cac« e„o 

returnCoda = SHORTCUT 

Me. Hide 
End Select 
End Sat) 

Sub Form_Loai t) ! 
Dim i As Integer iiO'/f 
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Dim itemRooo 

itemBoxtOI .FontSire » largeFONT 
rightArrovtO) .FontSire * largeFONT 
iltcmlOl .BackColor = itemCOLOR 
selector. FiilColor = highlightCOLOR 
di3playUlst. FillColor » backgroundCOLOR 
locator. FiilColor - backgrounds lor 
itemBoxlO) .BackColor « iteraCOLOR 
rightArrowtO I .BackColor = itemCOLOR 
sfcpSlot.BorderColor » slotCOLOH 

SizeAForw Me. DiapTop, DispHeight. DispLeft, DiepWidth 
Me. Scale (0, O-C1000, 1000) 

SixeAControl locator, T - GAP, H ♦ GAP, lOCL - GAP. locW + 2 * GAP 
SixeAControl shpSlot, T, H. locL + reducedEXTRA. iocW - 2 ♦ reducedEXTRA 
SireAControl diaplayLiBt. T - CAP, H ♦ GAP, diSpL, difpW 
locator.ZOrdcr j 
ohpSlot .£Ord«r ! 
rltcrc(O) .ZOrder | 
itaraRocm - H / KAXDISPLAY ! 
SizeAControl itetnBOx(O), T (.5 * GAP). itemRoora - GAP, di«PL -» EXTRA, dispW - 

2 • EXTRA j 

SireAControl lef tArrow 10) , T ♦ < . 5 * GAP), ItemRoom - GAP, di&pL, • EXTRA 
SixeAControl rightArrowtO), T + (.5 • GAP! , iteniRoom - GAP. diapL* dispW - 

EXTRA, EXTRA 

SiiftAControl selector, T, iteroRoom * GAP, dlapL, dispW 
select or. ZOrder 
For i = 1 To MAXDI SPLAY 
Load iceffiBoxli] 

itemBox(i) .Visible = False ! 
iterrtBoxli) .Top = itenBox(O) .Top ♦ U - U * Atemftoom j 
Load rip;htArrow(iJ 

rightArrow(i) .Top » itemBoxli) .Top ^ 
Next i ; 
End Sub 
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Sub LcadDota t ) 

Dim refSnap As snapshot ^ 

Const MAXTOGETHER * MAXDI SPLAY V £r>®& EX * 0 Zi~&<g$tl%>X*& 
Dim together 

list End = 0 

Set DB & OpBnOataba«e(TVTitlcs) 

Set allData a DB .CroateSn*p»hot ( •Titles" ) 

Set refSnap = DB.CreateSnapchot t 'Ref«renc«* ) 
refSnap.WoveFirst _ 
together * MAXTOGETHER »f£fcJ3(U0££te*'J<f 
While Not re f snap. EOF 

Select Case refSnap< -number' ) 
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Case 0 
Case 1 

ij-7X> M-fcfWT* | 

HscO IstEnd) = allDataCStlectTitX»-l ] 
leaf UifitEnd) = True ; 
together = KAXTOGETHER 

Case Else 

If xeCSnap ('Letter' > « •# Then 
listEnd » lists*! * l 
list(listEnd) - -symbol or Nuaiber* 

SSTS-^SE on uu entry »*» ». «»t »« t« 

If together >= WWCTOOETHER Then • 

listEnd • liBtEnd + 1 ] 

list(lUtEnd) -= ref Snap I "Letter" \ j 

together ■ 1 i 

E1 ° B U a t(li.cEnd) - li.tUUtEndl * • * r.£S«prte«er-| 

together - together ♦ 1 
and If 
End If 

leaf (lietEnd) » Falsa 
End Select 
ra f S nap . MoveNoxt 

Wend 

Set filterOata » allData ! 
initialList = True ! 
End Sub 



Dim msg As String 



•clear captions 

For i - 1 To MAXDISPLAY 

UcwBoxiU .Caption - 

Next i 

For i - 1 To MAX ITEM 

Unload rltewli* 
Next 1 

KAXITEH • liSCEnd tfaKD*MB<Dft 



GAP 
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rltentO) .Visible « False 
rltem<0) .Top » T 

rltera(O) .Left <= locL + reducedEXTRA t 
rltem(O) .Width « locW - 2 • reducedEXTRA j 
rlcem{0) .BeckColor = iteraCOLOR ! 
f ilterDaca.MoveFirst 

section = 0 D ^-^-D^r-'>3>0|J? 
Tor i = 1 To MAX ITEM 
Load rlteni(i) 

rltat(i) .Top » T ♦ <i - 1) * rovQffset 
If <<i - 1) Mod WAXDISPLAY) - 0 Then 

section - section + I j 
loeStart (section) ■ i | 
End If 

It Not leaf(l) Then 

rltero(i) -Width * rltemti) .Width ♦ reducedEXTRA 

End If 

rltemli) .ZOrder 
rltem(i) .Visible « True 
Next i 

MAXLOC o section 

loeStarel section * 1) = MAXITEM ♦ 1 ; 

tnUselectorCDJ5.c*fc#y V I 

rltem(O) . Left * locL - GAP 
rltem(O) .Width » locW ♦ 2 * GAP 

icemSeiected = 1 
locSelected = 1 

ritem<0> .BacKColor = highlightCOLOR 

RedoDisplay j 

End Sub \ 



Jub RedoDisplay () 

Dim last As Integer t=< Z7U<rtCD«ft0£BWtt 
Dim i As Integer 

Dim index As integer hrttfMHBO-f V?*^ X 

index « locStart(locSelected) j 
For i o I To MAXDISPLAY j 
If index > MAXITEM Then 
2 9 (D® § # 5/ 0 X £031" 
itemBox(i) .Caption = " 
itemaoxti) .Visible * False 
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rightArrcw(i) -Visible False 



Else 

itemBoxU) .Caption * Hstlindox) i 
If Not leaf (index) Then J 

rightArrow<i> .Visible = Trua 

it eroBaxli ) .Caption - UCaeeUist t index) I 

Else 

rightArrowti) ,Vi9ibl€ « False 
End If 

iteitBox(l). Visible = True 

last * 1 fi«©<!S»aaK*8fi« j 
index * index * 1 j 
End If | 

Next 1 j 

i 

If itemSelected > last Then 

it«ra3elected ^ last 
End If 

diSS^ufii^t - H ♦ 2 * CAP - IH / KAXDIS^LAY * (KAXDISPLAV - last), 
aelactor.Top • itawBoxUtetnSel acted) .Top - CAP 
locator. Top - T + rowOffset * (locStart (locSelected) - 1) j 
locator. Hoioht - last * rowOffset ♦ rltcmlOi .Height - rowOffset 
rltem(O) .Top • locator- Top ♦ rowOffset * (itemSelected - 1> | 
rZtom(O) .Visible = True 
SotXtemlnfd 
End Sub 

Function rernoveAmpersand (oldText As String) As String 

Dim text As Strino 
Dim newText Ab String 

Dim 1 as integer j 

text = oldTaxt 
newText » 

While In9tr<text. '&«■•) 
i a TnStr<text, *fci") 
newText - newText k Left (text, i) 
text - RightUext. Lenltextl - [i ♦ D) 

Wend 

romoveAmperaand - newText text 
End Function 



Sub Setltemlnfo O 

Dim mag As String 
Dim index As Integer 
Dim F As snapshot 

If Me. Visible Then 
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Option Explicit | 

t 
i 

Comet GAP = 700 j 

Sub Fom_Activate ( I 
Dim msg As String 

Dim DB AS database ; 
Dim Programs As tabl« 
Dim startTirae 
Dim refSnap As snapshot 
Dim rnfDato 

Dim startTS, finishTS, nowTS 

Set DB = OpcnDat abase (TVDB) 
Set refSnap » DB.CreateSnapshot ( •Reference - J 
refsnap.FindFirst 'Nama = ■Date'* 
ref Date = DateValue ( refSnapf "Data • ) I 
Set Programs * DB . OpanTablo ( " Programs " I 
Programs. Index * "JD" 

Program. Seek userStotion. userStart 

& : A-lf %r- *s 3 > C * * * * 

If Programs. NoMotch Then 

3^&a—»f ^r--^ 3 * <b cDjWT 4> » t «fc "5 1 V 5 a I/- r 
nowTS ■ DateDiff i"n". refDate. fakeToday ♦ fakeTim©) \ 30 
Set re f Snap ■ Programs. CreateSnapchotO 
relSnap.FindFirst • Station « • t StrluserStation) 
refSnap.FindNext "FinishTS * ■ fc Str(nowTS) 
msg » "You ar« watching • 

meg = msg t Chr(13) 6 Format (refSnopt ♦Title" ) ) 

msg • msg t " on - k StationString (ref Snap (• Station* ) J 

rasg - msg Chr(13) & Format (ref Snap \ -Start* I . m h:ma AM/PM") 

msg « mag fc * to • * Formac (ref Snap <• Finish' ) . "h:mra AM/PM") 

Else j 

«ig > ft £ -5 t a i**uiffi» 

startTS = DateDif f ("n", ref Date, Programs ( "Start" ) ) \ 30 
finishTS » DateDiff fn", ref Date, Programs ( "Finish") ) \ 30 
nowTS * DateDiff ("n". r*fDat«. fakeToday ♦ fakeTime) \ 30 

nowrsi* y * * * ? ft < a * ft* 

If startTS <° nowTS And finishTS >* nowTS Then 
mag • 'You are watching " 

Else 

msg = 'The VCR is set to record " 
End If j 
msg * msg & ChrU3) & Format ( Programs ( "Title ■) ) ( 
mag « msg & " on " & StationString (Programs ( "Station" ) ) 
msg = msg & Chr(13) «. Format (Programs ("Start •) . "h;mm AM/PM") 
msg = msg & ' to " Format (Programs* "Finish*) « •h,mm AM/PM" ) 
End If j 
textArea -Caption ■ msg I 
End Sub 
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Sub FomuKeyDown (KeyCode Ac Integer, Shift An Integer) 
Select cas« KeyCode 
Case fl_ BACK 

returnCode = LASTVIEW ^.^^ t -r, 

He.Hide 

Case D_0 

returnCode => SHORTCUT 

Me. Hide 

Cose AscCQM 

End 
Case Else 

rcturnCode = BACK 

Me. Hi do 
End Solent 
End Sub 



Sub Fomy_Load I ) 

textArea, Caption » *" 
textArea. FontSize = largeFOWT 
SixeAForm Me. 0. ScrHeight, 0. ScrWidth 
SizeAControl textArea, GAP, ScrHeight - 2 

End Sub 



• GAP. GAP, ScrWidth - 2 • CAP 



[0 0 3 8] 



c ..«=o TV*K ==»=== 
Option Explicit 



Global Const CARDFILE - -ct\pctv\db\cardo2.txt" 
Global Const KVDB - -c* \pc tv\db\piotP.mdb- 
Global Const SPDB - •c:\pctvVdbVshopplng.mdb' 
Global Const TVDB = - C i \pctv\db\big.»db* 
CLobal C©n«t TVTitle* - -ct Vpe*v\db\titl»» .»db- 
Conct CATDB a -c:\pctv\dbVcatB.ouib* 
Dim cyp«T*bl« Ac table T V 9 4 7 1 D s 
Din» catTable As table TV^U-IDs 
Dim statTable As table Xf-V9 VI Ds 
Global fnfceToday H 

Global fakeTime B3Ri£l&SJ3f , . ,_, „ kV/Mvya^T 

Global rtl S play*»ode As String PC*T VC R* ***r (7*/R'^;oWa 

CU^f ncwUser As integer 7-* JL\*V>£Zs X^^v^7HU 

Global ScrWidth. ScrHeight „ , r t^i 

Global DispTop, DispHeight. DiapLeft. DispWidth 7 ^-/-rtSTC? 



Clobal Const highlight COLOR - IH8080FF * 
Global Const backgroundCOLOR - iKBOFFFF -fXO- 
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Global Const itcrrCOLOR - fcHFFFFCD ^ 1*7/1'- 

Global Const forwCOLOR - LHFFOOOO 

Global Const wnitcCOLOR ■ fcHSCOOOOOS tt< Y 

Global Const greyCOLOR - fcKCOCOCO 

Global Const blackCOLOR = tHOfc ^y<» 

Global Const slotCOLOR - fcHBOOOOQOS J* 

Global Const borderCOLOR = LUTTk U y I» 

Global Con»t divideCOLOR = UtFFFFfc K 

Global ColordOi y 4 >t;8!a&&tlfcEM 

7*>MMX 

Global Const small FONT - 11.8 
Global Const mediumFOWT = 1ft 
Global const leroeFONT » 24 

mm 

Global Const KOVIE « 0 
Global Const TV « 1 

Global Const SHOP • 2 

Global liotFrnO) As Form 
Global TVllst As B«« fnaList 
Global MOVliat As Hew frmLiat 
Clobal SHOPliat A» Kew frraList 
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Clobal curi Domain As Integer 

Global filtari<3> As String 5a/i0tSta7 * T**M ^ V -* \ r J >#®&M 

Global currFilter(3) As String 7 V JV* (Or-** h £ 

Global currVi*w(3) Ac String &££»*i«!0>:r** (itiBft* ^ 

Global vi«ws(3> AB Form affi6D««Ka-©fi»iJ W coming or TV schedule, 

tor instance) 

Global viewFilter As String mWUWft.tt*tZTzV)tZ&%1Z7-~ \ 

Global userString As Strino a— V££ -yCSJRftlfc* > U >^ j 
Global userMsg a-VCX^TS^toO^ y-b— 5?^ h »J >^ 
Global ueerstation a— VK£?Ti8iRSftfci&HLEJ (Xx-*>3>) 
Global userStart a-WTJ: ?X&Vl$tlte&iN 

Global aameFiltex As Integer * 'J 7 1V$ * *&©#fe ftflttlEU* 

Clobal eameVicw As Integer 7— ;ur / *7l/>f £*>0 fiTifcSMM&i W^TF ^ 

Global r^turnCode Ae Integer 

Global Const BACK - 0 \ 
Global Const TOTV * 1 i 
Global Const LASTVIEW «» 2 

Global Const SHORTCUT n 3 j 
Global Const DONE » 4 
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Global Const FILTER * 5 
Global Coast COMING - 6 
Global Const SHOWVIEW = 9 
Global Const ALPHA = 10 
Global Connn PICK » 11 
Global Const STARTUP - 12 
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Global Const 



KAXITDi = 9 hWtf*>«e*© 



^Ye^As Integer «J****«*i* j 
level As imager «**»nfc*- l^tt 
xuwue A 3 String >/*- H " h 

infot«*t Ab string .«*/t-W«)*** H ^s^-u 
actionCode As Integer fcSCMM^^" 03 * 

actionI>eta Aa String 7^y3>^^ lW ^ fi " 11 
parent Ai Integer «*-r-<Dtt 

Nltcna As Integer *'* T? w h<»*n¥»L0#? >E» il^> 

Iteiu(MAXITEK) Ab Integer *- > *<OE*J <*- Y±.Q*to*tlZ>*7 ✓ k.u- a 
cel^eted As mt.g.r a**IUfc**V«>* 
End Typo 

I 

HAXCARDW >r=* K * ?0Sfl : 

Global Const MAXCARDS = 1000 ; 
Global Cards (KAXCARDS) As C»rd • 



Global B_BACK 
Global B_HELP 
Global B_PR£VIEW 
Global B__UP 
Global B.DOWN 
Global B_LEFT 
Global B_RIGHT 

Global B^S ELECT 

Global B_PAGEUP 

Global B„ PAGEDOWN 

Global B_l 

Global B_2 

Global Bji 

Global B_4 

Global Bj> 

Global B_6 

Global B_7 

Global B_8 

Global B_9 



50 



I 

I 



(63) 



123 

Global B_0 
Global B_F3 LTER 
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Global Const RED = 8tHFF& 
Global Const ORANGE = &H80FF* 
Global Const YELLOW = &HFFFF& 
Global Const GREEN a fcH80FF80 
Global Conet TURQUOISE e iHFFFFOO 
Global Const BLUB « tHFFOOOO 
Global Const VIOLET = tHFFOOFF 
Clobal Conct WHITE - tHFFTFFF 
Global Const BLACK - 
Global Const GREY * 4HC3C0CO 



constant. rn*p<b 



Global Const KEY_LBUTTON - tHl 
Global Conat KEY.RBUTTON « tH2 
Clobal Const KEY_CAKCEL « fcH3 
Clobal Conct KEY^NBUTTON - LK4 
Clobal Conat KEY_BACX = *H8 
Clobal Conat KEY.TAB «= fcU9 
Global Const KEY_CLEAR » fcHC 
Global Const KEY_RETURN = fcKD 
Global Const KEY.SHIFT * 4H10 
Global Con9C KEY.CONTROL = fcHll 
Global Const KEY_XENU » &H12 
Global Const KEY_PAUSE « tHl 3 
Global Const KEY_CAPITAL « fcHU 
Global Const K£Y_E SCAPE « fcHlB 
Global Const KEY.SPACE « SH20 
Global Const KEY_PRIOR = tH21 
Global Const KEY_NEXT = tH22 
Clobol Const KEY_END - fcH23 
Global Const KEY_HOME - LH2 4 
Global Const KEY_LEFT - &H25 
Global Const KEY_UP - SH2 6 
Global Const KEY__fcIGHT « &H27 
Global Const KEYJX3WN * SH2S 
Global Const KEY_SELECT = &H29 
Global Const KEY_FRINT « &H2A 
Global Const KEY_EXECUTE « *H2B 
Global Const ICEY.SNAPSHOT = iH2C 
Global Const KEY_ INSERT = &H20 
Globol Const KEY^ DELETE = 4H2E 
Global Const KEY_HELP = &H2F 



LBUTTON, RBUnONfcttftitt J&V* 
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KEY JJfrtjfEtJ* Ttt 7"^ *- -TVn -9 1 0' 9* (3? t n 

Global Const XEY.NUMPADO = &H6Q 
Global Cor. st KEY_NUMPADl = fcH61 
Global Const KEY.NUMPAD2 = fcH63 
Global Const KEY_WUMPAD3 - &H63 
Global Const KEY_NUMPAD4 - &H64 
Global Const KEY_ NUMPAD5 « 
Global Ccnst KEY_NUHPAD6 = fcH66 
Global Const KEY.MUMPAD7 = &H67 
Global Const !CEYJ*VHPAD8 = &H68 
Global Const KEY.NUMPAD9 * &H69 
Global Const KEY JTOLT I PLY = tH6A 
Global Const KEY^XDD « tH6B 
Global Const KEY.SEPARATOR - fcH6C 
Global Const KE Y_ SUBTRACT - fcH6D 
Global Const KEY.DECIHAL - 1H6E 
Global Const KEY^DIVIDE ■ &H6F 
Global Const KEY_.F1 - *K70 
Global Const KEY.F2 - 4H71 

Global Const XEY,r3 * tH72 

Global Const KEY.F4 * -H73 

Global Const KBY-F5 a fcH74 

Global Const KEY_F6 = tH7S 

Olobal Con3t XEY_F7 = fcH7 6 

Clobal Const KEY_F8 * -H77 

Global Const KEY_F9 « S.H7 8 

Global Const KEY_F10 = -H79 

Global Const KEY_FU * tH7A 

Global Const KEY_F12 « tH7B 

Global Const KEV_F13 - &K7C 

Global Const KEY_F14 - &H7D 

Global Const KEY^FIS = &H7E 

Global Const KEY.F16 « B.H7F 

Global Const KEY_NUMLOCK * &H90 



Function CategoryString {typeCode As Integer, 
Dim roso As String 



msg o -Category: * 

typeTabl* . Index = *ID" 
typeTable.Seek typeCode 
If typeTable.NoMatch Then 

tnsg - msg & typeCode 
Else 

meg » meg typeTable ( "Naroe" I 
End If 

msg - rosg & •, ■ 'all on one line, 



catCode As integer) As String 



replaced: Chrll3> s • Subcategory : 
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catTable. Index * * ID" 
catTablo.Soek -o' t catCodo 
Cf catToble.NoMatch Then 
mag a rets? fc caeCode 

Else 

msg = msg & cacTablet "Name" ) 
End If 

categoryString = msg 
End Function 

Sub CCopy (Cfrora Ae Control, Cto As Control) 

Cto. Caption • Cfrom. Caption 
Cto-BackColor - Cfrom.BaekColor 
Cto. Top - Cfroro.Top 
Cto. Height « Cfrom. Height 
Cto. Left « Cfrora. Left 
Cto. Width o Cfrora. Width 
Cto.FoncSize * Cf rora.f ontSize 
End sub 

Sub Centerltem (Item As Control, x, y) 

Item! Left = x - Item. Width / 2 
I tern. Top ■ y - I torn. Height / 2 
End Sub 

Sub CPlace (extra. Cfroiu As Control, Cto Ae Control) 
CfromfcCtofcfcfcUilC:^ x** h^iSv^ oltTri/-* 
C from. Top « Cto. Top - extra 
Cfrom. Left ■ Cto. Lett - extra 
Cfrom. Height = Cto. Height + 2 * extra 
Cfronu Width = cto. Width + 2 * extra 

End Sub 

Function DayString (d. length As String) Ae String 

Select Case Weekday (d) 
Case 1 

If length » 'long" Then 
DayString ■ "Sunday" 

Else 

DayString = "Sun" 
End If 
Case 2 

If length « "long" Then 

DayString = "Monday" 

Else 

DayString « "Mon" 
End If 
case 3 

If length « 'long* Then 
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DayString c •Tuesday* 

Else 

DayString * *Tue - 
End If ! 
Case 4 

If length o 'long* Then i 
DayString = "Wednesday 9 

Else 

DayS t ring « *Wed" 
End If i 
Case 5 

If length « 'long 9 Then 

DayString « ■Thursday* 

Cl&e 

DayString = *Thur" 
End If 
Coca 6 

If length = "long* Then 

DayString ■ 'Friday" 
Else 1 

DayString « "Fri* 
End If 
Case 7 

If length - •long* Then 

DayString => *Saturt3ay" 

Else 

DayString - *Sat* i 
End If 
End Select 

End Function j 

t 

Function £ ixAmpor sand (text As String) 

Dim i As Integer . * ° 

Dim oldText As String 
Dim newrext As string 

newrext = 

oldText = text 

While InStr( oldText, "fc") 

i » InStr (oldText, 'f | j 
neVText * Left (oldText , i - 1) * "*&* ! 
oldText • Right (oldText, Len(oldText) - ii ' 

Wend 

fixAmpereand - newrext k oldText j 
End Function 

Sub InvokeHolp {) 

TellUser 'Press Help (?> again for general help, or press any button on the 
remote for help with that button.' i 
select Case returnCode 
Case B.BELP 
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TellUser 'General Help: - 
Case B_ PREVIEW 

TellUser 'Use the Preview button to see a video preview of the highlighted 
selection. " 

Case B BACK 

TellUser 'Use the Back button to back up to the previous screen." 
case KEY.ESCAPE ! 

TellUser "Use the Shortcut Key to get to the shortcut buttons..", 
Case B_SEL.ECT 

TellUser "Use the select button to choose & highlighted option." 
case Else 

TellUser 'This help screen is not written yet.' 
end Select 
End Sub 

Sub Kain () 

Dim i M Integer j 

Dim DB Ks database j 

Sec DB - OpenDatabaia tCATDB) 

Sot typeTable - DB.OpcuTa.ble I 'Type " ) 

Set catrabla - DB.OpenTable I 'Category - ) 

Sot DB - OpenDa t abase (TVDB) I 
Sat stat Table ■ DB .OpenTable I "Stations" ) 
SotKaye diap la/Mod* 

Set liitFmtTVI = TVlist 
Set liatFrro(HOVTE) * HOVliet 
Set llitFrm(SROP) » SHOPlist 

COlDXtOI = tHBFBFOO ^-f-^'J-^ j 

Color U I = tHFFFF80 h77t>— I 

Color(2] - &HFFC0FF S-fM^i' ! 
Color 13) = IHFF80FF ^—0 0 0 
ColorU) » 4RB0C0FF Kt <7 UtU>V 

colons) = *HCorrco ^f^xh^u-v 

Color l«) » aHFF8080 0 

Color (8) n &HFTCOCO ^>^r_ 

Color |7) - fcHCOCQfc *-{>JV 

fakaToday * CVDate ( "6/12/94- ) j 
fakeTime • CVDate ("6: 30 PM-) j 

i 

newUser • True I 

i 

frmFrame.Show 
DoEvents 

Load frnDax 
Load frmAlpha 
Load xrnrrv 
Load frrcMsg 

currOoroain « MOVIE 
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viewFilter = 'T«r >= 1933- 
currViewtKOVTE) • 'Recent Kovies 
currFilterlMOVIE) = ' : All Categories 
S»tStatus 'novi**', greyCOLOa 
Load listFrrMKOVIE) 

currDomain » SHOP ; 
filters I SHOP) ' "* „ T 
SetStatus "Shopping, contact disks'. greyCOLOR 
Load HstFrttlSHOP* 

currFilter(TV> = "Basketball 

currDomain ■ TV 

filters (TV) * -Category o 39' 

ui«rString = -Kov«- j 
fi»Vedt«o-H j 

fniVVdayfcO-F 

fnnSelect&c- F i 

S ^tat^"o!rLow Q and .elece or u» Uypad.-. greyCOWR 
f xtoDqx . Show 
End Sub 

* X &rii^*M«Lt™ <= • l StH.ndTS. * • tad FinishTS >= ■ * St* (begird) 

End Function I 
Sub setlnfo (text As 5tring f Color) 

Diro s As SSPanel «, 

Set 6 = xntfraiaeissplnfo works as long as torn is loaded 

s.BacfcColor - color 

b. Caption « te*t , 
End Sub j 

Sub Set Key* (mode As String} ; 

B_l - KEy_NUMPAD7 | 
BJ2 = KEY_NUKFAD8 
Bl3 * KEV_NUMPAD9 
8^4 - KEY .MUMP ADA 

B^S b KEY_NUMPAD6 

9^7 o KEY_NUMPAD1 | 
B_8 » KEV_NUMPAD2 

. B_9 = KEYJWMPAD3 j 

if mode » "TV" Then i 

D BACK » KEY_3UBTRACT 
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B.HSLP - IB CO^-MaWfclfrtofr&fc^ ; 
B.PREVIEW - KEY_ABD | 
B_UP « Asc('8M ! 
B_DOWN c ASCC2 - ) 
B.LEFT = Ascl-4') 
B_RICHT - A5CC6") 
B_SELECT = ASCI "5') 
B_PAGEUP - KEY.DIVIDE 
B.PAGEDOWN = AECCO") 

BJ) - KEYJTOLTIPLV ; 
B_FILTER - KEY.RETURN | 
Else | 
B^BACK - K£Y_F1 I 
B_HELP - K£T_F3 
B_PR£VIEW « XEY.F2 
B_UP = KEY_UP 
B_DOWN « KEY_DOWN 
B_L£FT * KEV^LEFT 
BRIGHT • KET — RIGHT 
B_S ELECT « XEY_*ETURK 
bIpAGEOP = KEY_PRIOR 
B_ PAGEDOWN - KEYJ9EXT 

B_0 * key_numpado I 

B_FILTER - KEY_F4 | 
End If | 
End Sub i 

Sub SetStatus (text As String, Color) 

Dim s As SSPanel 

Sec s « frrnFrame'sspStatus 1 (works as long as form is loaded) 
s,BackColor » Color 
6. Caption = text 
End Sub ' 

Sub SizeAControl (Item Ae Control, t, H, 1. w) 1 

Item. Top * t 
Item. Left » 1 
I tera. Height = H 
Item. Width ° w 
End Sub 

Sub SizeAForm (frtn As Form* t, H, 1. w) 

frm.Top = t | 

fm.Left = l ! 
frm. Height o H 
frm. Width » w 
End Sub 

Function StationString (s) Ac String 

statTable. Index *» "ID* | 
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ctatTablft.Seok * 

If stat Table. NoMa ten Then 

MogBox -illegal station ID " 6 a 

Stop 
End If 

StaticnString = statTable < ' Name" > 
End Function 

Sub TellUser {message As String) 

unorMeg ■ m«*«ag* 
Wait frmM«g 
End Sub 

Function TimeLabel (t) hs String 

Dim s AS String 
6 = Format ( t . "hh:mm AM/PMM 
If Mifl{S. 4. 21 = '3D' Then 
TimeLabal e 

Ei9e 

s * Format U. "h AK/PM" ) 
'AM/PMftHtf-T 

TimeLabel = L«ft{e, Len(o) - 3) 
End t£ 
End Function 
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Function TiroeString (aDatel As String i 

Din theTime As String j 
theTime = Format (aDate, "hh:irm AM/PNM ■ 
theTime = Let t (theTine, 51 'take just •hh:m»' part 
If Left (theTime. 1> = '0* Then 
theTime = Right t theTime, 4) 
End If 

TimeS t ring « theTime 
End Function 

Sub Wait (F Ab Form) j 

F . Show i 
Whil« IF. Visible) 
DoEvents 

Mend 
End Sub 



[0 0 3 9] 

! 
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Option Explicit 

Dim allData{8) As enapshot l*!B!rt<D£T<Z>X— * 
Dim mterData<81 Ka snapshot BHUCtJtto&B©:** v ^.a * K 
Dim NDays As integer a#F*3CZ)BC£ffiR | 

Dim NSlots As Integer £4trt4>?-< KOft 

Dim NProgs As Integer ^T^O9ffi<0Bt in di'P*** 

Dim colorField As String #y a^-fctfefct 3:r— 3"*-* 7 4 -/V Y 

Dim inPreview As Integer * UEUtffttf ri^*-*****^* 

Dim refDate * «f A* U * h ffi© 'i 7 r U >-*Bff 

Din slotsPexDay As Integer 1 BUfrS tlfc:* D Y ®& 
Dim currDay ajB$4)R _ . « ... 

Dim dayWldth Ae Integer Htt^'VMDw 
Dim lblHeight A* Integer att^'VkOJfiSd 
Dim infoHeiffht As Integer t$Stffc£ftfcifl$3't;M'0?£e' 
Dim timeHeiffht WM^^^H* 
Dim etartTime Ha-ffl©3gifi^M 
Dim TSBegin Aa Long aBW&tfl®*^ UXU v \ 
Din TSEnd A3 Long SB©*«0*-f A*n» h 
Din TScurrent As Dong J3K0#tl0*< AXn* h 

Sub ApplyFi Iter O « 
Dire i As Integer 'counter 

For i ■ 1 To NDayo 

ellDfttn(l) .Filter = -Title • <■ ucorString U 
Sot tilterDatoU) = allData < 1J .CreataSnapshott ) 
filtsrData(i).Sort = -StartTS' 

Set mterDatafl) « filterDataU) .CreaceSnapshotO 

Next i 
Sna sub 

Sub Change Sol (d As String) 

Dim current 'as database marker 

Dim success As Integer 'boolean . j 

Dim s As Integer 'station number 
Dim beet 

Dim TS A» Long 'time slot 
Dim F Ae anapahot 
Dim a Day As Integer 
Dim marker 'aa bookmark 
Dim arrows As String 

current ■ t ilterDatat cur rDoy) .Bookmark ! 
Set F « filterDataUurxDay) 

c » FCStotion') ! 
TS - TScurrent 
aDay - currDay 

success - False I 

Select Case d 
Coae 'Right* 
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F.FindNext "StartTS > " & StrlTSI 
success - Not F.NoMatch 

If success Then ( 

TS ■ F( "StartTS") 

F.MoveNext 

If Not F -EOF Then 

If FfStartTS*) « TS Then 
inf ©Arrows "down" 

El ee 

in£oArrow» "none' 
End If | 
Elee | 
infoXrrows "none" ; 

End If 

F. Move Previous 
End If 
Case "Left - 

F.FindPrevioua -StartTS < ' t Str(TS) 
success ■ Not F.BTeMatch 
IE success Then 

TS = FffitartTSM \ 

F.FindFirst 'StartTS - " & 3tr{TS) | 
T9 - FCStartTS*) 

iBS* £ 5 t?T * v * 
F . MoveNext 
If Not F -EOF Then 

If FrstartTS') - TS Then 
infoArrows "down" 

infcArrows 'none' 
End If j 
Else j 
infoArrows -none* | 
End If I 
F . MovePrevioua 
End If 

If »rog. < 1 Then Exit Sub -do nothinc if all upshot* empty 
aDey « aDay ♦ Is TS 3 TS ♦ 48 
while Not success And aDay <- NDaye 
Set F « filterDsta(aDay) 

F.FindFirst "StartTS > ■ 4 Str(TS) | 
If F.NoMatch Then ! 

If Not F.EOF Then F.MoveLast 
If Kot F.EOF Then 

success * True 

TS - FfStaxtTfi') 
End I£ 
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Els* 

marker • F.Booki&ark 
beat • FCStartTS'l - TS 
F.FindLoat "StartTS " k StrlTSt 
If F.NoMatch Then 

F. Bookmark = marker 
TS = TS ♦ best 
Else 

If TS - FCStartTS") > best Then 

t?©*ia» feoff ^ 
F. Bookmark = marker 
TS = TS ♦ best 

Else 

TS - FCStartTS") 
End If 
End If 

success • True 
End If 

aDay = aDay f 1: TS » TS ♦ 4B 

Wend 

aDay » aDay - 1: TS - TS - 48 
If success Then 

F.FindFir*t -StertTS - * t Str(TS) 

If F.NoKatch Then Step 'how did wo get a TS with no program in it? 
TS « FCStarcTS-) 

F.MovcKext 
If Not F. EOF Then 

If FCStartTS*) ■ TS Then 
inCoArrows 'down" 

Else 

infoAxrows 'none* 
Erd If 

Else 

infoArrow3 "none" 
End If 

p .Move previous 
End If 
Cose "Up" 

^Bfti-#S&U SWYA^Dy M:i£^£-5t;*ffttr a 

If NProgs < 1 Then Exit Sub 'do nothing if all snapshots empty 
aDay - aDay - 1: TS - TS - «B . 
While Mot success And aDay > 0 j 
Set F - filterDataUDay) 

F.FindFirst "StartTS > * fc Str(TS) ] 
If F.NoMatch Then 

If Not F.EOF Then r.MuveLaet | 

I 



.roe -slot 
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If Wot F. EOF Than 

success • Trua 

TS - FCStortTS") 
End If 

Else 

rearkcr » F.BootanarX 
best = rt-StartTSM - TS 
F.FindLast 'StartTS <= • & Str(TS) 
If F.WoKacch Than | 

P. Bookmark - marker 
TS » TS + best 

Elso 

If TS - FfStartTSM > best Then 

F. Bookmark « marker 
TS = TS 4 best 
Else 

TS m FCStartTSM | 
End If j 
End If > 

success • True 
End If 

aDay = a Day - 1: TS - TS - 48 

Wend 

aDay - aDay ♦ Is TS = TS ♦ 48 ! 
If success Then 

a 9 AO* JJKfc z t 

F.FindFirst "StartTS = " & Str(TS) | 

If F.KoMatch Then scop SB^tO+tfti^t^^^tTSSflft^? 

ts'= F("StartTS"» 

F . MoveNext 

If Not F.EOF Then 

If Fl"StartTSM » TS Then 
infoArrows "down" 

infoArrows •none* 
End If 

Else 

i n f o Arrows * no ne ' 
End If 

F . MovePrevious 
End If 
Case "Next" 

F, MoveNext 
if wot F.EOF Then 

success = FCStortTS") « TS 
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End If 

If success Then 
F.MoveNext 
arrows * 'vp a 

If Not F .EOF Then rh . 
If FCStartTSM = TS Then arrows = both 

End If 

F.MOvePrevious 
infofcrrows arrows 
End If 
Case "Prior" 

F.MovePrevioua 

If Hot F.BOF Then L .,*x^v**Kfc 

success - FTStartTSM - TS 
End If 

h 

If cue cess Then 
F. Move previous 
arrows = "down* 

If Not F.BOF Th«fl .kaMi- 
If FCScartTSM * TS Then arrows o both 

End If 
F.Kov«Naxt 
infoAxrows arrows 

End If 

If Not F.EOF Then , 
F.MoveNext 
arrows = "none - 

If Not F.EOF Then p„ ftl-n . 
If FCStartTSM » TS Then arrows = down 

End If 

F , Mo v« Previous 
infoArrowft arrows 
End If j 
End Select } 

! 
I 

If success Then 

TScurrent « FCStortT9") 

currDay - a Day 

DiaplayProg 
Else , ^ 

£ilterData(currDay).BoolcnarK - current 
End Tf t ^ . 

SIS': ^tt^XL ♦ cu„ 0 av T ... X » 

TSEnd « TSBegin ♦ slotsPerDay - 1 t 
End Sub I 
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Sub DieplayProg O 

ma® mm* t ®n * *fm*vw5'a> t&mt a 

Dim F Aq snapshot : 
Dim mso A* String 

msg -= StationStrmg(F( 'Station U t V ■ . 

nsg - msg « • to - .ft Form.tCFCTini.h-). "him MC/PM. ) j 

msg = mgg k Format (F ( 'Title' I » i 

msg = M g ft ChrtU) <■ Mepisode info her*)" 'ft Format (FCEpieode M 

Setinfo mag. ColorlFlcolorField) Mod 9) 

shpProgCO) .Visible * False 
•♦lector. Visible • False 

position stapProg(O). F( 'StartTS' ) . F 1 "FinishTS ) 
CFlace 0. selector, $hpProg*0) 
ehpProgCO) .Visible ° True 
selector .Visible - True 
End Sub \ 

Sub DoPreviov {) 

Din nvfig A* String 

^ msg - msg t CatagoryStringC it UterDatatcurrDayU 'Type' 1 ) , 
AM/PM" ) 

»»«-«..«• ♦ 1.5 • l«»i-«l.»l fl h t |. 11. 

flblDoy(l) .Width), 45 

popup. Visible » True 

inPreview = True 
End Sub 

Sub DoS elect ( ) 

tp^i/a^^/^t^ h UTTVCh< 

userStacion o f ilterDa'tal currDayU "Stat ion* ) 

ueerStart = EilterDataCcorrDoyt ( -Start ■ ) 

returnCode = TOW 

Me. Hide 
End Sub 

Sub Drawprog (duplicates As Integer, ind«x As Integer) 
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Dim above, below, side, vide 
Const CAP = -3 



above « shpProo(O) .top 
below = shpProgl 01. Height 
side - shpProclOS .Left 
wide = shpProg (01 .Width 
ForeCclor = biackCOLOR 
FillStyle « 0 'solid 
drawwidth = 1 



lixw* color, thin black outline 



Select Case duplicates 
Case 0 

fillColor e Color(index) . . f , « r » P) , a 

Line (side, above)-<side ♦ wide. above ♦ belov .5 

Case 1 

# y v — T is * * — ? 1" * 

fillColor « greyCOLOR tf££if*T (*H(iHfco 
& ™ h) Un* (.id«. ebov.-Uide ♦ wide. »*>ve • below - .5 • Ga'p>. . ■ 

above - above ♦ OAP 
side • aide + GAP 
vide - 3 * GAP 

Line Uide, above) -Icide * vide, above ♦ vide 

J'S' K t l^fV-iSi ^oTabove ♦ .S • wide) 

s: t: ^-w- * * * wide, ~« 

Case Else , 
End Select 



End Sub 

Sub FomuAccivate O 
Dim i As Inteoer 
static saveFilter A3 String 

I£ aaveFilter - uaerString Then samerlUer » True 
aaveFilter » uaerStxing 

MMueu. -Thi. Week: • «■ userStrin,. 9I eyCOWR 

It Kot aaioeFilter Then 

Setlnfo 'Loading program inf orwsticn. - - * . GREY 
sh P Pro9(0>. Visible False 
selector. Viaihlo - False 
infoArrova 'none* 

DoEvents 



40 



50 



(78) j »B8¥8- 2 9 2 8 6 6 



153 154 ; 

Applyfilter \ 
MaXcDieplay j 
aameFilter - True j 
End It 
End Sub 

Sub Forrn_KeyDown (KeyCode As Integer. Shift As Integer) j 
Dim index As Integer | 
Dim n As Integer 

Select Case KeyCoda I 
Case AscCQ*) 

End 
Cose B_BACK 

returnCode = BACK 

tie. Hide 
Case B_HELP 

sameFllter ■ True 

InvokeHelp | 
Caso B_PREVIEW j 
If inPreview Then ; 
inPreview • Faloe , 
popup. Visible - False 
Clse ! 

inPreview = True 
End If 
Case B_ RIGHT 

ChangeSel (-Right*) 
Case B_LEFT 

ChangeSel {'Left* ) I 
Case B_UP \ 

ChangeSel ("Up-) j 
Case B_DOWN 

ChangeSel ("Down') 
Case B_S ELECT j 

if not f ilterData (currDay) .EOF Then Doselecc 
Case B_ PAGEDOWN 

ChangeSel CNexf) j 
Case B_PACEUP j 

ChangeSel ( -Prior') 
Case B_FILTER j 

retumCode - PICK | 

Me. Hide 
Case B_0 

retumCode = SHORTCUT 

Me. Hide 
End Select 
If inPreview Then 

Do Preview 

Else 

popup. Visible o False . 
End If 

End Sub | 

I 

40 



50 



I 



(79) 



155 

Sub Form_L°* d 1' 

Dim x As Integer 

7*— ^©Cifc?*^ **** * 

Me. BdckColor » tormCOLOR 

shpPrco(O) .BfickColor = BorderColor 

lblDaytO) .BackColor * backgroundCOLOR 

selector. BorderColoi * BordorColor 

dayLinelO] .BorderCelor = divideCOLOfl 

lblTimetCI .ForeColor * slotCOLOR 

shpSlotlO) .BorderColor » BlotCOLOR 

infoPanel. FontSize ■ t&ediuaFONT 

If difiplayttode = *TV" Then 

iblWiylO) .rontSiie * enallFONT 
lblTinte(O) .FontSize - smallFONT 
popup. Fon tSize • RCdiunFCNT 

Else 

lblDaytO) .FontSize - largeFCWT 
IblTine(O) .FontSi*e * largeFONT 
popup -Font Size ■ largeFCNT 
End If 

SizeAForro Me, 0, DiapTop ♦ DispHeigbt 

KDays » 7 
NSlota - 48 
dayWidth • 4 
lblHwight *» 2 
infoHwigbt » 6 
If displayMode « "IV Then 

upArrow.Lott = 8950 

downArrow.Left « 8950 

tiineHeight « 2 

downArrow.top = 650 

upArrour.top ■ ISO 

Else 

timeHeight « 1.5 
downArrow.top ■ 1525 
End If 

Ke.9cale (0. 0)-(NSlots * 
infoHetght) 

selector. BorderWidth a 1 

SiteAConcrol InfoPanel, 0 
infoPanel. Caption - 
infoPanel. Visible - True 

slzexcontrel lblDaytOi. lblHeight ♦ mfoHejght 
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DiEpLeft. dlEpWldth 



fiayVIidth. NDay» • lblHeight ♦ 2 * cii^Height * 



inloHeight, 0. (Ke.Scalewidth) 



lblHeight, COayWidth 



i = 1 Tb ND*y» 
Load lblDayUI 

IblDaylU .Caption • DayStringti, "short*) 
lblDay(i) .top - ti - I) • lblHeight: * infoHciyht 
lblDaytl I .Visible « True 
:t 1 



2 * tineHelght 
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TimfiLabeKOateAddCh- 

i ♦ 2 
True 



SixeAControi lblDay<OI. infoiieight 
lblDay(O) .Caption n "AH 
lblDaytOI .Visible » Tru« 

SiieAControl IblTimetO] , 
For i = t To WSlot» \ 2 

Load lblTiweUI 

lblTimeU) .Caption = 

lblTimel i) .Left « 2 

lblTiraeU) .Visible - 

Next 1 
HProgs = 0 
saoeFilter « False 
InputData 
Forn_Activate 
End Sub 

infoArrowfi < direct As String) 

Select Cose direct 

Case "up" 

downArrow . Visible - Faloe 
upArrow. Visible - True 

Case "down* 

upArrow, Visible » False 
downArrow. Visible - True 

Case "both" 

upArrow. Visible - True 
downArrow. Visible « Truo 

Casa 'none" 

upAr row. Visible - False 
downArrow. Visible « False 
End Select 
End Sub 



tiraeHeight, dayWidth. NSlots 



llblDaylO) .Height) + infoHeight. timeHeigfct, 0. 2 



(i - 1), fakerO&AYll 



sub inputData I) 

Dim DB Ao database 

Dim ReESnep As snapshot 

Dim i Ah Integer 

Set DB * OpenDa t abase (TVDB) 



Set RefSnap = DB. CreateSnapobot t •Reference') 
RefSnap.FindFirst 'Name = 'Date'" 
rsCDate =* DateValue IR-f Snap I 'Data") > 
RcfSnap.FindFirst 'Sane * '^Stations ' * 

Set allDatalOl « DB. Cr eat ©Snapshot ( -Programs' ) 
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startTime = rofDato 
TSBegin = 0 

TSEnd * TSBegin * 48 - 1 , 
For i ■ 1 To 7 I ( . 

allData (01 .Filter = OverlapfTSBogin ♦ 46 • (i - li. TSEnd ♦ 48 * (1 1>> 
Set allDatali) » allData(OI .CreataSnapshot t ) j 

Set^llDataiO) = Nothing i*£T©r-5> fc- ISUttifcSfc U«ct% 
End Sub 

sub Ma*e Display () 

Dim i Ag Integer 'counter 
Dim d At integer 'day 

Dim TSlnst As integer 'last time alot affected . 
Dim r As »nap6hot "convenience I 
Dim offset Aa integer 'used twice: dayline otfset & number of proorams .harxng a 
time slot 

! 

drawwidth - 2 

ForeColor • lblDay<0J -BaekColor 
offaet - infoHeight * 2 * timeHeight 
For i * 0 To NDays 

Lino (0, ofEeet + i * lblHeight ) - 1 52 , offset ♦ i • IblHeight) 

Next i 

i 

offset a o tt%.0)*4 UXOv VWZtDHfcyKttt-zX^ZtoyvyWfaVZ \ 
colorField = 'Category- ft : ^r^«K^^5t:'^Jpc , "CfcS^&tU? i 
For d • 1 To NDays ! 
eurrDay ■ d j 
TSlaet = -1 ! 
Set F - filterData(d) 
II Not F . EOF Then 
F.KoveFirst 
Do While Not F .EOF 

If FCStartTS*) * TSlast Then 

offset * offset + l ! 
DrowFrog offset, -1 j 
Else | 
offset « 0 i 
Foaition eh P Frog<0>, F ( "StartTS" ) . FffinishTS' ) 
DrawProg offset, F (colorPield) Mod 9 ; 
TSlaat - FfStortTS") j 
End If 
F.Hov«Next 

Loop 

F .MoveFirftt 

End If | 
Next d 
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a . i | 

currDay = 1 j 
whilo a <= NDays 

If filterData(d) .EOF Then 

d - d ♦ 1 

currDay * d 
d o NDays t 1 
End If j 
Wend j 
shpProg(O) .SOrder ( 
©elector. ZOrder I 
If Not filterData(currDay).EOF ««J , 
TScurrent « filterData (currDay) ( StartTS ) 
DieplayProg 
ChanaeSal 'none" 
End If 
End Sub 

Sub Pocltion (chape As Control, .tart, finish) j 

Dim let tTS j 
Dim rightTS 
Const' smallGAP « .1 

7 4 u * d * f **-*c emr S 

leftTS - start - 48 ' (currDay -11 
rightTS * finish - 48 * (currDay - U 

chapo.Left = dayWidth ♦ leftTS . 10AP 
ehape.Width - rightTS - leftTS ♦ 1 - w^lXW ; 

shape. i^eft «= dayVidth 
End It 

shape. Heioht = 2 - 2 * amallGAP 
shap«.top = lblDAylcurrDay).top 4 siuaUGAP 

End Sub 

Sub Satlnfo Imsg Ac String. Color) -JpM4 

in£oPan«l.BackColor » Color 
infoPanel. Caption * k«9 
End Sub 
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Option Explicit 

Dim .HDatalBI Ab snapshot 'oil data within tine period 
0i m fiUerData.8, A. snapshot MttrtOSI U©X£* s » h 

w e ..,: An x« integer 5^— * ^— XftWROHStSt 
Dl . coio rFiel a M S tri„ 9 «*Jl*}SS*Ji<8?* 
Di . inPreview A, Integer f-*,. 6 b /U L'»-*»»ltf 

const - * lW*^fcMW«^MCX£-* 

Dim elotsPerDay As Integtr -BUf Snfcao s> b©K , 
Dim currOay As Integer 2B©& j 

Din, starts ^^^« B ^™ ! 
Dim TSSegin As Long fiffiO * -f A -A CI v £ 
Dim Tscnfl as Long «»©^'f k'AByY 

a: sss " assists 

%TS?yt"7i^ (TV) ty^ftiTVMfi^-**^*** 
pira L As Intoger A 1 )^ | 
If InStr( filters (TV), 'Station- ) Then 

colorField - •Type' 

Else . 

UStation - MaxStation | 

colorField * -Category' 
End If 

For i - 1 To NDays j 

allPatadi. nicer - fllterslTV) 1 
Set filterDatati) = aUDataUKCreateSnapchoU ) | 

Next i ; 
End Sub 



Sub Changesel (d Ac Strang) _ ^ . 

Din current, firstnatch t— 5"<-^ 73 

Dim success As Integer r-'U 

Dim s As Integer Ua> 

Dim TS Ai Long #4I*XOvY 

Dim F As snapshot 

Dim aDay As Integer 

Dim best As Integer 

current « til torDat* (currPay) .BOOXPWrX 
Set F = CilterDataUurrDay) 
s « FCStation") 
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TS = TScurrent. 
aDay = eurrDay 
success « False 

If d = *Riuhf Then 

F.MoveN'ext 

If Not F. EOF Then 

success = Fl-StarionM ' s And FCStartTS") « TS 

End If 

If Not success Then 

1,tC ™' P ^ ,1 SblTl«-as - TSMgin ♦ 1 * leurroay - X) - BlotsPeritay) .BackStyl* - 

D* transparent 

wfcil* aDay <«= NDays And Not success 
While TS * TStnd And Kot success 
T3 - T3 ♦ 1 

F.FindFirst Overlap ITS, TSJ ft 'And Station >= k s 
If F.HoMatch Then j 

F.FindLast OverlaplTS. TS) & 'And Station < ■ ft s 
success • Not F.HoMatch 

cuccaeo ■ True 

b«st = FCStaticnM - s 

firstHatch • F.Boctanark 

F.FindPr«vious OvarlaptTS, TS> | 
31 F.NoNateh Then 

F. Bookmark * firstKatch 

Else 

If s - F( 'Station") > best Then 

F, Bookmark » firstKatch 
End If 
End If 
End If 

Wend 

If Not success Then 

TSBagin - TSBegin * 48 

TSEnd » TSBegin ♦ slotsPerDay - 1 

TS - T SB eg in - 1 

aDay => *D*y ♦ 1 

Sot F • f HtorData(aDay) 
End If 

Wend 
End If 
Elseif d * -Left* Then 
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F.KovePreviou* 1 
If Not F.BOF Then 

success * FCSt*tion-) - * And FCFiniohTSM - TS ( 

End If ] 
If Not success Then | 

l-crans P ar e nr^ inie(Ts _ ^ r ^ . „ . slotoP „ Day) . Btte XStyl e * 

0 ' transparent tf A »-v dav to left 

while auay >• 1 And Not fucc« S *p5^«Marhi«i- 
While TS > TSBegin And Hot eucc«ts *fl<D3«J0>;* O ? h*»T 

"f1i*fi»c overlaps. TS] t ' And Station >- - ft Strtel 
If F.NOKatch Then < 

F.FindLaet Overlap (TS. TS) 

success = Kot F.HoMatch ] 

Else I 

success c True j 

firotKatch - F.BootanarX 
best - P( 'Station') - 8 

F.FiftdPreviou. ChrerlaptTS, TS) 'will be less th*n current 



station 



If F.NoMotch Then , 
F.Bootaftark - firotMntch 

El«e 

If e - FPStotian") > beat Then 

F.BooWrk - firstMatch 
End If 
End If 
End If 

lT«ot success Then 'try previoue day 

aDay - aDay - 1 

TSBegin ■ TSBegin - 4B , 
TSEnd * TSBegin ♦ elotsPerDay - 1 j 
TS * TSEnd + 1 | 
Set F = tilterDaca(aDay) j 
End If j 

Wend 
End If 
Elself d o 'Down* Then 

r'f^ZVgZlZlt tiro, ci~ .!« in d «y. •« co„r 8 «> 

y'.FinStaxt :,?T£Up<«. TS( fc * And <> ' * «f -I * ■»■ 

success « noc F.NoMatch \ 
ElsQlt d - "Up* Then | 
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. lwltll exception of first time ilot in «ach day. of course) 

F Boo Knar k ■ current , 
F.rindPrcvious * t " a OverlaplTS. TS) & " And Station <> • ft.StrUl 
success » Not F.NoMatch 
ttself d • 'Top" Then 

F.Findrirst overlap (TS, TS) 
success ■ Mot F.NoMatch 
El self d » *Bott<aa" Then 

r.FindXast overlap (TS. TS) 

succset - not F.NoMatch : 
End If | 

If success Then I 

. i 

TScu*r«it - T3 1 
currDay - aDay 
Di cplayProg 

filt«rD»t»(curxD»yi .BootaaAXk « currant 
End If 

TSBegln - DateDifffn', refDat.. UtartTxne ♦ currDay - 1) ) \ 30 
TSEnd « TSBegin ♦ sLotsPerDay - 1 , 

°'*°ttStta.lT8ewr«e - TSBNin ♦ 1 ♦ (currDay - 1) • S lo«P«rD»y) .B.ekstyle 
1 • opaque 
End Sub 

Sub DieplayProg <) 

Dim F Ac snapshot 
Dim meg As String 

Set F b filtftrDatatcurrOay) 

mem 

ahpProo(O) -Visibla « False 
selector. Visible = False 

Position shpProQtO). PCStartM. FCFinlshM. Fl'Statwn ) 
CPlace 0, selector, shpFrcgtO) 
shpProgtO) -Visible « Tmo 
selector .visible * Tme 

M^^lt*t?oaString(F(-flcatlonM) a • - ■ • PCTitle") a • 
msg «= nsg fc Format (F{ •Start* ) , 'h:mm AK/FM*) 
msg - »Bfl fc • to • S Format<F<-Finish'>, ^:nn AM/FM" ) 
Settnfo mag. Color (F (colorFioldt Mod 9> 
End Sub 
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Sub Do Preview () , 

Dim TBS0 As String ] 

msg ■ -Station; " StationString (filtorD-t* (currDay I < 'Station* ] ) j 
msg =■ msg 4 Chr(13i & 'Title: * & filterData (eurrDayM -Titla - ) I Chttl3) 
rrsg =■ msg (. CategoryString I ( f lltetData(currDay) ( -Type" II . 
(filcerDatatcurrnay) (-category*) I) 

msg = msg & Chr(13) & 'Time: • & Format (til terDataleurrDayH 'Start M . •nnm d.yy 

nssg » msg fc Chr(13) & • to ■ * Format (eiltarData(currDay) i "Finish- ) . 'h-.vm 

AM/PM'I 

popup. Caption = n*g i 
popup. Top - lblTimedl.Top + 2 * lblTtroe (II. Height | 
popup. Left = 2 1 
popup. Width «= slot»P«rDay * NDays - 3 
popup .Visible - True 
inPrevievr ■= True 
End Sub 

Sub DoSeleet () 

userStation - f ilterDatatcurrDay) ( "Station* ) 
user Start » f ilterData< currDayK" Start • ) 
returnCode « TOTV 
Me. Hid* 

End Sub 

Sub Form^Activate () 

Dim i As Integer 'counter 
Static saveFilter ks string 

ie saveFilter * t liters (currDomain) Then sameFilter = True 
saveFilter ■ fi leers (currDotnain) 

SetStatus "Evening TV: * & currFilter ITV) , greyCOLOF 

If inPreview Then 

popup. Visible * False 

inPreviev » False 
End It 

It newVaer Then . 

popup. Caption » 'Press 'catagory' to change the kxnd of programs dlplayed. 
popup. Visible « Truo 

newUser » False 
End If 

It sameFilter Then j 
IC TScurrent > 0 Then 
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0 '*olid 



GREY 



• 1* solid 

End If 

Setlnfo -Loading program inform t ion- . . 
thpTroo(O) .Visible « False 
lblDaylO) .VisibLe = False 
lblTimc(O). Visible - Fel»e 
shpSlot(O). Visible = Talec 
selertor.viiible • False 
For i <= 1 To NProgs 
unload shpProgli) 

Next 1 
Applyfilter 
MakeDisplay 
•ameFilter * True 

XXV\ It 
End Sub 

Dim Index X« Integer 
Dim n Xa Integer 
Select Case XeyCode 
Case abcCG'I 

End ; 

Case B.BACX -.»„,<« + i ♦ (currDay - 1> • slotfiPerDay) >LllStyl« • 

shpSlOttTScurrent - TSBegin ♦ 1 ♦ icurru&y | 

1* transparent ,.-.^4- ♦ i ♦ icurroay - 1) " elctePerDay) .BacltStyle = 

lbXTimetTScurrcnt - TSBegin ♦ 1 ♦ icurriwy *i 

0* transparent 

rotumCoae - BACK 
We. Hide 
Catt* B^HELP 

sameFllter - True 
InvokeHelp 

Case B-PHEVI™ 

If inPreviev Then 

popup .Visible ■ False ; 
inPrevie* = False j 

Else 

inPreview - True j 
End If i 
'""xf-So^llcerO.taicurrDay) ■ EOF The, Channel <■ W>. i 

C "%t"KraiterD 0tft (curxD O y, .EOF Tbca Channel 

Gm **uZt mterD*ta<cur r Day>.EOF Then ChangeSel C-Op-) ! 

Case B_D0WN 
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« Mot «Uterl)«t«|eurtIW).BOPTtienChwBS«l I -Dow.' I 
Case B.SEUJCT , sfiMin <► 1 * IcurrDay - II • ilflt.FerDayl .FillStyla - 

l'txansparent T ««rin ♦ 1 ♦ {currDay - 11 * slotsPerDayl JBackStyle - 

0-,r a nsparent t fnc((tD<|M<currBBy| iEC? DoSelect 

C05 %^ E nu 6rDat e l curr 0ay > .«F T*en Channel < - Bottom- > 

^JS22S*~t - TSBesin * 1 ♦ ««r W - U ' slOts^Y. .miStyle - 

l'tranaparent ^ ,„ _ , «. i currDay - 1) * slotfiPerDey) .BackStyle » 

IblTimelTScurrent - TSBegin ♦ 1 * icurrway 

0 • transparent j 
returnCode - Filter j 
Me. Hide 

Case B_0 . , . ( ^,r-*-n«v - 1J • olotftPerDey) .rill Style o 

chpSlot(T£curr«nt - TSBegin * 1 * IcurrDay 11 

V transparent fT , cfa _. . , „ i C urrD«y - 1> * slots PerDoy) .BackScyle = 

lblTin-(TScurrent - TSBegin - 1 * icurro.y 

0' transparent 

rafcurnCode - SHORTCUT 

Ma. Hide 
End Salact • 
If tnPrevtew Then 

DoPreview 
Else 

popup. Visible b False 
End If 
End SuD 

SUt "rsTliteger, I M I«. 9 .r. n A* »f«« 'counters 
Dim t 'as time 

Me.BackColor = EonnCOLOR 
sh P Proo(0).BackColoe « Do * derCo }" R 
lblDay(O) .BackColor - bacVgroundCCLOR 
elector. BorderColor - Bo ^ e £°£* 
define (O).BorderColor - divideCODOR 
iblTim»(0).For«Color - oXotCOWR 
ghp£lot<OJ.Bord«Color = alotCQLOR 
It dispUyModo * 'TV- Than 

lblD*y(0) .Font Size ■ «mallFONT 

lblTime(Q).FontSl« • email FONT 

popup. FontSite « madiuinFONT 
Else 

lblDay(0).F©ntSixe * largeFONT 
lblTime(0).FontSlM • laroaFONT 
popup. FontSiia « largeFOH* 
End It ^ v 
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2 • lblHBICKT. 0. 50 



I 



Si^ox* K«. DispTop. Di^ight. Dl.pU.ft. D i«Width 
Me Scale (0. 01-1500. 500) 

Me. Scale iu. (Q) 0> iblHEIGHT, 0, 500 

Sir^trcl Popup. 250. 200. 250. 200 
selector .BorderWidth - 1 
dayUneCOi ° 0 
SayUnatOI -Y2 = 500 
ini ti STiSC 

saroeFiltei = False I 

*«IT>CViCW » FttlB© j 

inPreview » False ; 
NProge * 0 

NDays ■ 5 ^QSBftfl 

BlotsPetOay - « SUM, 6 3 0WO^ 

Mo.SoaleWidth - NSlota | 
IblTiiM(O) .Width - 1 I 
BhpSioc(O) .Width - i i 
For i * 1 To NDayo . 

lblDay(i). Caption = D*ySt«n ff li * 1, short ) 
lblDay(i) -Viciblo * True 

Ke*t i ! 

For d * 1 To MOayG , 

For i « 1 To 6iote?«rD»y | 

n B (d - 1) * slotaPerDay * i ( 

Load shpSlottnl 

1 



I 



shpSlot(n) .Wove n 
shpSlotint .rorder 
shpsiottnl .visible « True 

Load lbiTl»e(nJ ] 
lblTinvetnl .Move n - 1 

lblTin«tnl .ZOrder | 
t - DateAddfn'. 30 - U - IK .wrtTime) , 

shpSlotlD.FillStyl* = l'tr»ncparent 
lblTim«U).B*ckStyle » 0 • transparent 
lMTlme(n) .vUiblo = Tru» 

If d < NDaya Tbcn 
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slotcP«rD»y 
clot«P«rDay 
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Load dayLLn«<d) 
dayUneldl.Xl - 
daylAno(d>.X2 = 

End If 
Next d 
Input Data 
Form_Activat» 
satneView » True 
End Sub 

Sub InputData l) 

Dim DB JU datab*«o 
Din Re f Snap As mapshot 
Dim i As Inttger 

Set DB o OpenData*a«etTVDB> -rjo_h 

Set F«£Snap * DB.CreateSriapshot (-Reference" ) 
RefSnap.FindFirat 'Nana «- 'Date** 
refDate « DateVaW (Ref Snap ("Data- ) ) 
Rafsnap.Findfirst 'Haste - '^Stations" 
MaxStation • val (Hef Snap ('Data - ) > 

Set allData(O) - DB.CreateSnapshotl-ProffremsM 

TSBegin - DateDiftrn-. refDate, startTxme) \ 30 
TSEnd = TSBegin + slotsPerDay - 1 

For i * 1 TO 5 (<T . 0O ,^ . dfl . (i - 11 . TSEnd +148 * (i - 1) 

ollData(O) .Filter «= Overlap (TSBegin + U n. 

48 ^^^tMi) - allDa t a«0,.CreateSnap 5h ot t > 

sltVllDatatO) - Nothing 'won't be needing everything since tuj is Ci.- 

End Sub ! 

! 

Sub MakeDi»play U . 

Dim d As Integer Rtt 

Dim c Aa Integer fi^>^ 

Dim F As snapshot $Wfi 

Dim ha«Progc Ad Integer &&<Dlt^~>il$ t >-HU 

If Not *amaViow Then 
End If 
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MOJBtrH< j 
hasProgs ■ C ' 

For 6 « 1 To NDaya 
currDay * d 
Set F » filterData(d) 

If Not F.ECF Then 

F.MoveFirat i 
Do While Not F-E07 j 
Load stq?Profl(c ♦ U 

shpProg(c) .iOrfler 
shpproglc) .visible * True 

F.MOveNexc | 
Loop 

F.Moveriret _ , .^^v.. tha tir st day" with programs 

XI haoProgo » 0 Then hnoPros* • d 'remeioDer tr.e tiist u<«y, 

in it 

End If 

Next d | 
MOVQ Sl l Error GoTo 0 'quit trapping errors internally | 

For d s 1 To Nl>ayo - 1 

dayLine(d) -ZOrder 

dayLine(d>.Vi«ibU - True 
Next d 

i 

NProtxs * c 
currDay » hasProgs 

shpProg(O) .aorder j 
selector. border | 
l£ currDay > 0 Then j 

^^ffs^": -«~» • « ■ -- Day - " 

TSEnd = TSBegin ♦ sIotePerDay - l 

TScurrent « TSBegin 

Set F - £UterD«t«tcurrI>ay> 

Do While TScurrent <• TSEnd ; 
F.FindFiret Overlap (TScurrent , TScurrent) , 
If Wot F-KoNetch Then 
Dicpl*yPro8 

Exit Do j 
2nd If ! 
TScurrent = TScurrent ♦ 1 j 

Loop 1 

ElSe TSBegin « DateDiffrn', refDete. startTirce) v 3 0 [ 
TSEnd = TSBegin ♦ BlotfiPexDay - 1 
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TScurrent ■ TSBegin 

currDay * 1 i 

lf r TSBeoin ♦ 1 ♦ (currDay - U • GloUPerDay) .FillStyle - 

shpSlotlTScurrcnt - TSBeoin x . 

O'solid + , , currDay - n • slotsPcrDayl-BackStyle - 
1 • opaque 

Exit Sub j 

Error-Handler: | 

" ^ « S"Soo» Co allocate progra* shapes. ,uie Rawing ! 
Resume Moveon 

Else i 

21 - inputBoxd^g. "Error Correction' . ) 
If «9 c •* Ttian Stop 
Resume MoveOn 
End If 

End Sub | 
Sub Portion Cehape ft. Control, .tart, finish, atation, 
o£T relative!-, relative*. dayStart 

dayS tart * etartTitne ♦ currDay I . 
rtlacivu - Ctart - dayStartl • « 

rtlati'w * «flni.h - dayStartl * 48 - relabel, : 

If relative^ < 0 Then 

relative* - relative* ♦ relative!* 

relativeL • 0 ; 
S* relative* * relative!- > alot.Perrav Then r.U«iv* - elotsPerDay 

£W«E& - » • .io»-«y ; 

Bhape.Left » relativeL ♦ edge ♦ sideCap ; 
•hap-.Kiath = r.lativ«W - 2 • sideSap 

ehap..Top « shpSlottOl.Top ♦ topCk? ♦ Ut«t»on 
End Sub 
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